[vba]
Sub FindFunction()
Dim rFound As Range
On Error Resume Next

With Sheet1
Set rFound = .Columns(1).Find(What:="Cat", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, SearchFormat:=False)

On Error GoTo 0

If Not rFound Is Nothing Then
MsgBox "No Records Found"
End With

End Sub
[/vba]