I'm not sure I've ever used the FIND method successfully, but the following code is my latest unsuccessful attempt:
[VBA]Sub FindTest()
Dim TgtRng As Range
With Worksheets("Main").Range("E12:E14") '<-(A date in each cell)
Set TgtRng = .Find(Range("E13"), LookIn:=xlValues)
If TgtRng Is Nothing _
Then MsgBox "Not Found" _
Else MsgBox TgtRng.Address
End With
End Sub[/VBA]
What am I missing??