How about
[VBA]
Function lngNumberFound(strFieldValue As String) As Long
lngNumberFound = 0

With Worksheets("Sheet1").Range("a3:d20")

Set c = .Find(strFieldValue, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
lngNumberFound = lngNumberFound + 1
Set c = .Find(c, after:=c)
Loop While c.Address <> firstaddress
End If

End With

End Function

[/VBA]