auto update text box from combobox in sheet1

[Patriot2879]

Hi Good afternoon, i have the code below which doesnt work in the workseet, i have combobox and textbox in sheet1, and the data in sheet 2 the code below works if the combo/textbox was in the userform but it doesn't work if in the worksheet (sheet1) can you help me please.

Private Sub ComboBox4_AfterUpdate()
   Dim Fnd As Range
   Set Fnd = ThisWorkbook.Sheets("Sheet2").Range("A:A").Find(ComboBox4.Value, , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then
      ComboBox2.Value = Fnd.Offset(, 9).Value
      TextBox3.Value = Fnd.Offset(, 2).Value
   End If
End Sub

 

[Akuini]

Try:

     Sheets("Sheet1").ComboBox2.Value = Fnd.Offset(, 9).Value
     Sheets("Sheet1").TextBox3.Value = Fnd.Offset(, 2).Value