I have been using range.find successfuly until I tried to find a date. I have a simple workbook being an extract from the main project. Unfortunately I can't get any response from the attachment icon so I have listed the macro code under. The workbook range TestDate has dates in "A1:E1" the cells are in date format. The code using the Range.Find method fails to find the date. The more traditional For_Next loop does find it. I expect the solution will be simple but I have tried everything I can think of. The LookIn parameter made no difference.



Sub MyMacro()

Dim ldDate As Date

ldDate = Range("B1").Value


Range("TestDate").Select
Set c = Selection.Find(ldDate) ', LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox "found " & ldDate
Else
MsgBox "Not found " & ldDate
End If


For i = 1 To 5
With Range("TestDate")
If .Cells(1, i) = ldDate Then
MsgBox "found " & ldDate
Else
MsgBox "not found " & ldDate
End If
End With
Next 'i

End Sub 'MyMacro