error on an auto update

[Patriot2879]

hi i have a code below that when i enter a number in TextBox11 it will find the data automatically to enter in the MPANBox, but it keeps coming up with an error please can you help me on this? many thanks.

Private Sub TextBox11_AfterUpdate()
   Dim Fnd As Range
   
   Set Fnd = Sheets("Export ETA").Range("A:A").Find(TextBox1.Value, , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then
      MPANBox.Value = Fnd.Offset(, 2).Value

   End If
   End Sub

 

[Patriot2879]

hi just wondering if you guys have any ideas on this issue please? or do you need more info from me? thanks for your time.

 

[Fluff]

What error do you get & what line is highlighted?
Also you are running that code from textbox11, but looking for the value in textbox1, is that deliberate or a typo?

 

[Patriot2879]

silly me lol that works great now sorry about that, my mistake thank you though for your help

 

[Fluff]

You're welcome