Macro that can search for today's date across sheets

Hi

I have a calender type set up where I am using a different sheet for each month. On the front sheet I want a button where I can click and it will take me straight to todays date.

I have this from a previous thread to find the date on a single page, but how do i modify it to search many sheets?

Sub Select_Today()
    Dim rng As Range
    Set rng = Range("1:1").Find(Date, , xlValues, xlWhole)
    If Not rng Is Nothing Then
        rng.Select
    Else
        MsgBox "Cannot locate today's date in row 1.", , "Today Never Happened"
    End If
End Sub

Thank you