mit Cells.Finde (what...) kann man ja nach etwas in ener Tabelle suchen.
Ist es nich tauch möglich nach etwas zu Suchen und ein ergebnis zu bekommen, ob etwas gefunden wurde oder nicht. "Wenn nichts gefunden wurde, dann mach das..."
Sub machs()
Dim C As Range
Set C = Cells.Find("xyz")
If C Is Nothing Then
MsgBox "Nix gefunden..." , , "Hinweis"
Else
MsgBox "Gefunden in " & C.Address(0, 0) , , "Treffer"
End If
End Sub