Edit table with userform VBA

Private Sub ComboCompanyname_Change()


Me.Question1.Value = ws.Cells(iRow, 1).Value
Me.Question2.Value = ws.Cells(iRow, 2).Value
Me.Question3.Value = ws.Cells(iRow, 3).Value
Me.Question4.Value = ws.Cells(iRow, 4).Value
Me.Question5.Value = ws.Cells(iRow, 5).Value
Me.Question6.Value = ws.Cells(iRow, 6).Value
Me.Question7.Value = ws.Cells(iRow, 7).Value

End Sub