S
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
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