Handle Error Code 91 and Move on to Next Operation

[tidalwavedc9]

Hello,

Help with this would be much appreciated. I wrote a program that seeks out a specific string and modifies the format of it's cell once it is found. Sometimes the string will exist on the sheet and sometimes it won't. I need the program to keep running and do its job if the string isn't found...instead it keeps crashing. I though the code below would handle the error:

Columns("B:B").Select

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

If Err.Number = 91 Then
End
Else
"Block of code that modifies cell"
End If

What can I do to tell it to ignore the error and move on?

Thanks!

 

[RoryA]

Assign the result to a Range variable and test if it's Nothing:

Dim rngFound as Range
Set rngFound = Columns("B:B").Find(What:="String", LookIn:=xlFormulas, LookAt:=xlPart, _
                       SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If not rngFound is Nothing then
   rngFound.Activate
"Block of code that modifies cell"
End If

 

[tidalwavedc9]

Thanks Rory,


I applied the methodology you showed me to all the code blocks that hunt specific strings and it works perfectly.



Much Appreciated,
Mike

 

[RoryA]

Glad to help. Welcome to the forum, by the way.