The code below searches the entire sheet for an email address that the use has inputted into cell E3. How can I make this code show an error message if there are no matches found?


Sub delete2()
'
' delete2 Macro
' Macro recorded 10/29/2008 by Clayton Grove
'

'
    Range("E3").Select
    Cells.find(What:=Range("E3"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
     
    Selection.ClearContents
      Range("E3").Select
    Selection.ClearContents

End Sub

Thanks!
Clayton Grove