I have used the following code in the past but it no longer works in the
newer versions of Excel. Is there another way to check if an item is found or
not within a range.

Evern though it shows c equal to Nothing in watch mode, the code used below
gives an error.

Sub testFindDate()
With Range("K4:K45")
Set c = .Find("7/1/2006")
End With
If c.Value = "Nothing" Then
MsgBox "not found"
Else
MsgBox c.Address
End If
--
djb