can't get find date macro to work

[still learning]

Hi

I’m can’t get this macro to work.
I make a new worksheet
I put in today's date with format m/dd/yyyy in A7
The rest of the sheet is blank
I put this macro in sheet1 of the VBA window

Private Sub Worksheet_activate()
Cells.Find(Date).Select
Set C = [A:A].Find(Format(Date, "m/dd/yyyy"))
If Not C Is Nothing Then C.Select
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.SmallScroll Down:=-1
End Sub

I save and close the sheet
(yes I made it an macro enabled workbook)
When I open it, the cursor goes to A1
That’s where it was when I saved and closed it
I tried changing Worksheet_activate to Worksheet_open
Nothing is in This workbook
I’m using File open and clicking on the sheet


mike

 

[still learning]

Thank you for a very informative lesson
I appreciate your patients with me


mike

 

[Joe4]

You are welcome.
Glad we were able to get it all sorted out.