VBA for "SEARCH" error

[andrefenti]

Hey guys, is there any code that skips the error that shows when you use the function "SEARCH" and it find nothing?

 

[Scott Huish]

Why are you using a spreadsheet function in VBA when there are VBA alternatives?

For example:

Sub TestInstr()
Dim strtoSearch As String, strtoFind As String
strtoSearch = "This is a Test"
strtoFind = "test"
If InStr(1, strtoSearch, strtoFind, 1) > 0 Then
    MsgBox "Search Text found"
Else
    MsgBox "Search Text not found"
End If
End Sub

 

[andrefenti]

Thank you!!!