Hi,

Try the below. Right click the sheet tab with the dates then select View code
Paste the below into VB and close.

Select a different sheet. then reselect the sheet with the dates.

Assumes dates are in Row 1 this time 

Private Sub Worksheet_Activate()
Dim Dt As Date
    
    Dt = Date
    Rows("1:1").Select
    Range("A1").Activate

    Selection.Find(What:=Dt, After:=ActiveCell, LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Select

End Sub
VBA Noob