Blattregister

habe folgendes Problem: Ich möchte das, was auf meinen Blattregisterkarten steht in die Zelle A11 schreiben lassen.
Was brauche ich da für ein Makro? Die Blattregisterkarten sind mit einem Datum beschriftet. z.B. von 1.4;2.4;3.4 - 31.4. Das was dann in Zelle A11 stehen soll, soll folgendermaßen aussehen. 1.Apr;2.Apr;3.Apr - 31.Apr
Bin noch Anfänger.Habe schon folgendes ausprobiert:

Sub NameInZelle()
Dim wb As Worksheet
For Each wb In Worksheets
wb.Range("A11").Value = wb.Name
Next wb
End Sub

Das Ergebnis ist dann, das in Zelle A11 folgendes steht: 1.Jan
Es soll aber doch 1.Apr drinstehen????????? Wer kann mir helfen?

Im Vorraus besten Dank

Martin