Display Error Message and Stop VBA Process when Text Not Found

[Godlewskij]

I've got an Excel tool I built to analyze reports. The tool works fine, but after it finishes deleting the info I'm not interested in, it occasionally ends up with no findings. This is good, but confusing to some others who may need to use my tool. What I would like to do is enter new VBA Code at a certain point that will search for the text "XYZ" in column A. If "XYZ" is found, then continue processing. However, if "XYZ" is not found, I want a message displayed "There are no XYZ's found in the report" and then have the VBA process stop at that point.

 

[VoG]

Try

Dim Found As Range
Set Found = Columns("A").Find(what:="XYZ", LookIn:=xlValues, lookat:=xlWhole)
If Found Is Nothing Then
    MsgBox "XYZ not found", vbExclamation
    Exit Sub
End If

 

[Godlewskij]

VoG, Thanks. Worked like a charm. This is why I love the MrExcel website. Been using it for years and the two times I haven't been able to figure something out, someone if the forum has been able to help.

Thanks Again. Joe