ZUM HEUTIGEN tag

Er geht jetzt mit diesem Macro zwar in den Monat aber nicht auf das aktuelle Datum. In der Spalte B jedes Blattes sind die Daten enthalten. Jedes Blatt hatt als Monatsname 01 02 usw. in der Spalte B ist jeweils das Datum

Kannst Du mir weiterhelfen ? Danke.

Sub Heute()
Select Case Month(Date)
Case 1
Sheets("01").Select
Case 2
Sheets("02").Select
Case 3
Sheets("03").Select
Case 4
Sheets("04").Select
Case 5
Sheets("05").Select
Case 6
Sheets("06").Select
Case 7
Sheets("07").Select
Case 8
Sheets("08").Select
Case 9
Sheets("09").Select
Case 10
Sheets("10").Select
Case 11
Sheets("11").Select
Case Else
End Select
Cancel = True
End Sub