Go to today's date column

Argh,

I was selecting the cell and you want the column

Try

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
    With ActiveCell
     .EntireColumn.Select
    End With
End Sub

VBA Noob