Jump to date when sheet is activated

[cdude911]

Hi I have macro set up that used to work fine but has recently stopped working. It’s supposed to jump to todays date when I activate a sheet.

Private Sub Worksheet_Activate()
Dim DateRng As Range, DataCell As Range

Set DateRng = Range (“A:A”)
For Each DateCell In DateRng
If DateCell.Value = Date Then DateCell.Select

 

[Micron]

That didn’t work. I’m not sure what you mean by option explicit?

Google away.

 

[cdude911]

Google away.

Option explicit is enabled. Like I said this was working fine until a couple weeks ago when it suddenly stopped working