Mange faner

Sub Kopi52()
    Dim wks As Worksheet
    Set wks = Worksheets("W1")
    Dim i As Integer
    For i = 2 To 52
        wks.Copy after:=ActiveSheet
        ActiveSheet.Name = "W" & i
    Next
End Sub

Sub Indsæt_ark()
'
    Dim Antalark As Long
    Dim i As Integer
    Dim Antal As Integer

Antal = InputBox("Hvor mange gange skal Arket " & Sheets(1).Name & " indsættes?")
   
    For i = 1 To Antal
        'Find antal ark i mappen
        Antalark = Sheets.Count
       
        'Kopier skabelonen og indsæt den efter sidste ark
        Sheets(1).Copy After:=Sheets(Antalark)
    Next
   
End Sub