I am trying to create an updating tools for updating records in a small table in excel.

I have used the following code;
Private Sub UserForm_Click()
  Dim R As Long
  Dim Wks As Worksheet
    Set Wks = Sheet4
    R = ComboBox1.ListIndex
    R = R + 2    'Start at row 2
      TextBox1.Value = Wks.Cells(R, "A")
      TextBox2.Value = Wks.Cells(R, "B")
      TextBox3.Value = Wks.Cells(R, "C")
End Sub
This works to some extent but nto as far as i want it.
I want to be able to select a name in the combo box and for his/hers details to be populated into text boxs below. All i get at present is the values listed in ROW 1.

Can anyone help
Thanks
Sam