Look up
Perfecto:)
"Mike Fogleman" wrote:
This will find the first date in the list and then stop looking:
Sub DateFind()
Dim c As Range
For Each c In Range("DataSheetDate")
If c = Date Then
c.Offset(, 1).Select
Exit Sub
End If
Next
End Sub
Mike F
"LaDdIe" wrote in message
...
Hello
I have a range of dates in col A formated as 'ddd dd-mm-yyyy' the range is
named 'DataSheetDate', I would like a Macro that will find a date =
today's
date and select the the cell offset(0,1).
Thanks.
.
|