Search not found

[kenrose08]

Hello!
i entered an item to search in textbox1 and mis encoded it,
and then an error msg appear.
I wan't a msgbox to appear everytime the search failed.

here's the code i'm using:

Private Sub Search_Click()
Set searchRng = Sheets(1).Range("A:A")
With searchRng
Set resultrng = .Find(TextBox1.Text, LookIn:=xlValues)
ComboBox1.Text = ComboBox1.Text & Sheets(1).Range("B" & _resultrng.Row).Value
End With
End Sub

How do i code it, so that the error msg will be replaced by a msg box saying "Search Failed". ?

Thanks!

[Tony James]

Look at the Find Method example in the VBA help. You need to add an
Else clause to the If statement.

The above code I gave isn't complete, but should give you some clues of
how to fit your requirements into the example.