error message within search function

[Jphill]

need an error message within search:
Cells.Find(What:=Text1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
I know that when you do it normally outside a macro it will give you a part not found message but it wont record in the macro to get how it does it.

 

[Damon Ostrander]

Hi J,

If I understand you correctly, you want an error message if the Find doesn't find anything? Try this:

Set c = Cells.Find(What:=Text1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If C Is Nothing Then
MsgBox "Text Not Found", vbExclamation
Else
c.Activate
EndIf