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