PDA

View Full Version : [SOLVED] Copy the contents of a worksheet which includes merge cells and make multiple copies



Spooky7
08-21-2015, 07:32 PM
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
08-22-2015, 08:18 AM
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
08-22-2015, 10:05 AM
Thank you! It works You are awesome