"button" to move curser to a specific cell based upon formula results in another cell

try this:

Sub find_date()
    Dim d As Date, i As Long
    d = Date
    Dim lc As Long
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
        
        For i = 4 To lc
        If Cells(1, i).Value = d Then
        Cells(1, i).Select
        Exit Sub
        End If
        Next
End Sub

you could actually use a hyper link

=HYPERLINK("#"&ADDRESS(2,MATCH(A2,D2:QU2,0)+3),"jump to today")

@Martin--very nice.

Thanks for the rep.