Tabellenblattnamen nach Datum

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

028798    022198

Problem: Wie kann ich für den aktuellen Monat Tages-Tabellenblätter mit dem jeweiligen Datum als Blattname erstellen?

StandardModule: basMain

Sub CreateWks()
   Dim iCounter As Integer, iDays As Integer
   Application.ScreenUpdating = False
   iDays = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   For iCounter = 1 To iDays
      Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = Format( _
         DateSerial(Year(Date), Month(Date), iCounter), _
         Format:="dd.mm.yy")
   Next iCounter
   Worksheets(1).Select
   Application.ScreenUpdating = True
End Sub