Nach Datum ins Blatt einfügen

With Sheets("Januar")
Zeile = .Range("A38").End(xlUp).Row + 1
For Index = 1 To 8
.Cells(Zeile, Index) = Me.Controls("TextBox" & CStr(Index)).Value
Next Index
End With
Dim c As Control
For Each c In Konten.Controls
If TypeName(c) Like "Text*" Then c.Value = ""
Next c

Bis jetzt musste ich dies immer angeben im Code wie man sieht(With Sheets("Januar")

Ich möchte nun dass Excel erkennt wenn ich z.B. das Datum 02.02.2003 eingebe,dass er automatisch auf das Blatt Februar springt und in der erste freien Zelle anfängt.
Wenn ich 01.01.2003 eingebe ,dann soll er das Blatt Januar wählen u.s.w.

Wer kann mir den Code vervollständigen oder gar ersetzen??

Vielen Dank im Voraus
Gruss
Lucien