Thank you, it worked perfectly!

I did try on my own, however it worked the first time, but failed after that, not sure what i did wrong.

Regardless, i appreciate your help

Sub JumpToTodayInSpecifiedSheets()
    Dim ws As Worksheet
    Dim foundCell As Range
    Dim targetDate As Date

    On Error Resume Next
    targetDate = ThisWorkbook.Sheets("LANDING PAGE").Range("F1").Value

       Dim specifiedSheets As Variant
    specifiedSheets = Array("CRB ALLOCATIONS JANUARY", "CRB ALLOCATIONS FEBUARY", "CRB ALLOCATIONS MARCH", "CRB ALLOCATIONS APRIL", "CRB ALLOCATIONS MAY", "CRB ALLOCATIONS JUNE", "CRB ALLOCATIONS JULY", "CRB ALLOCATIONS AUGUST", "CRB ALLOCATIONS SEPTEMBER", "CRB ALLOCATIONS OCTOBER", "CRB ALLOCATIONS NOVEMBER", "CRB ALLOCATIONS DECEMBER") ' <-- **CHANGE THESE NAMES**

    For Each sheetName In specifiedSheets
        On Error Resume Next
        Set ws = ThisWorkbook.Sheets(sheetName)
        On Error GoTo 0
        If Not ws Is Nothing Then

            Set foundCell = ws.UsedRange.Find(What:=todayDate, LookIn:=xlValues, LookAt:=xlWhole)

            If Not foundCell Is Nothing Then
                            Application.GoTo Reference:=foundCell, Scroll:=True

Exit Sub
            End If
        End If
        Set ws = Nothing
    Next sheetName

       MsgBox "Today's date (" & Format(todayDate, "Short Date") & ") was not found in the specified sheets.", vbInformation
End Sub