Nach einem Datum suchen

Ausgangssituation:

In meinem ersten Tabellenblatt habe ich das aktuelle Datum mit der HEUTE-Formel in einer Zelle stehen. Diese Arbeitsmappe enthält jedoch noch weitere 53 Tabellenblätter. In jedem Blatt stehen fünf Datum, also 1 Woche (daher auch die 53 Tabellenblätter).

Problemstellung:

Nun möchte ich mit einem Makro genau in dieses Tabellenblatt springen, das das aktuelle Datum enthält.

Ich bin für jeden Hinweis dankbar,

Flo

Dieses Makro sucht das heutige Datum in Tabelle1:

Sub gehe_zu_heute()

Dim heute As Date
Dim zelle As Range

Sheets("Tabelle1").Select
heute = Fix(Now)
    For Each zelle In ActiveSheet.UsedRange
    If zelle.Value = heute Then
       zelle.Activate
    Exit For
    End If
Next zelle
End Sub

Gruss Markus