Benennen von Tabellenblättern mit Monatsnamen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

007398    001597

Problem: Wie kann ich eine neue Arbeitsmappe mit 12 Monatsblättern erstellen?

StandardModule: basMain

Sub MonthSheets()
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Workbooks.Add 1
   Worksheets.Add Count:=11
   For iCounter = 1 To 12
      Worksheets(iCounter).Name = _
         Format(DateSerial(1, iCounter, 1), "mmmm")
   Next iCounter
   Application.ScreenUpdating = True
End Sub