Excel 2000 - find todays date

R

Richard

I am trying to create a macro to find todays date in a worksheet and then go
to that cell.

Any help with this is most appreciated.

Thank you.
 
B

Bob Phillips

Look at Find in the VBA help.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
G

Gary''s Student

Try:

Sub tdayy()
Dim d As Date
d = Int(Now())
Dim r As Range
For Each r In ActiveSheet.UsedRange
If r.Value = d Then
r.Select
Exit Sub
End If
Next
End Sub
 
Top