Copy the contents of a worksheet which includes merge cells and make multiple copies

[Spooky7]

Getting an error on numtimes can you please let me know how to correct this. Thank you!


Sub Copier()

Dim x As Inter
x = InputBox
For numtimes = 1 to x

ActiveWorkbook.Sheets.Copy_
After:=ActiveWorkbook.Sheets

Next
End Sub

[mancubus]

change MySheet to your worksheet's name

Sub vbax_53547_CopySpecificSheetNTimes()

    Dim x As Integer, numtimes As Integer
    
    x = InputBox("Input the number of times to copy MySheet")
    
    For numtimes = 1 To x
        Sheets("MySheet").Copy After:=Sheets(Sheets.Count)
    Next

End Sub

[Spooky7]

Thank you! It works You are awesome