Finding Date in an overseas format

[Susan]

Yes, Hurrah!!!!! Witek's solution worked for my Australian beta
tester, so I'm assuming it will also work for my Indian beta tester.
I did change Witek's code slightly in that I took out c.select

Set rDate = wsData.Range("a3:a" & LastRow)

Dim iDate As Long
iDate = Fix(Now())
Dim c As Range

For Each c In rDate
If c.Value2 = iDate Then
Set rFound = c
Exit For
End If
Next c

Thank you very much for all of your assistance and patience with me!
Warmly,
Susan