How do you set cursor position at current date in macro?

[Tom Robertson]

--
Tom

[Norman Jones]

Hi Tom,

Perhaps:

'=============>>
Public Sub Tester()
Dim Sh As Worksheet

Set Sh = ActiveSheet

With Sh
.Cells.Find(What:=Date, _
After:=.Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
End With
End Sub
'<<=============

---
Regards,
Norman