excel find macro error 1

[sahmiele]

I am running a simple find macro. I can't seem to figure out how to program around the error that comes up if the value that is searched for is not found. Here is the chunk of code. Thanks in advance!


Selection.Find(What:="MY SEARCH VALUE", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

 

[rmikesmith]

Try something like this:

Dim FoundRng As Range

   Set FoundRng = Selection.Find(What:="MY SEARCH VALUE", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
   If FoundRng Is Nothing Then
     MsgBox "Search string not found"
   Else
     FoundRng.Activate
   End If

Regards,
Mike

 

[sahmiele]

Perfect! Thanks for the lightning fast response!