Arbeitsblatt 40 mal kopieren

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

028898    023598

Problem: Wie kann ich das aktive Arbeitsblatt 40 mal in die gleiche Arbeitsmappe kopieren?

StandardModule: basMain

Sub Copy40()
   Dim wks As Worksheet
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Set wks = ActiveSheet
   For iCounter = 1 To 40
      wks.Copy after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = iCounter
   Next iCounter
   Worksheets(1).Select
   Application.ScreenUpdating = True
End Sub