Copy worksheets

M

MJ

I want to copy the same worksheet 30 times in one workbook. Is that possible
without doing the copy worksheet 30 times?
 
E

eksh

Hi MJ,

If you need the function very frequently, you may use the following code
Sub MacroCopyWS()

Answer = InputBox("How many worksheets you want to duplicate?", "Copy
worksheet", 30)

For i = 1 To Answer
ActiveSheet.Copy Before:=Sheets(1)
Next i

End Sub
 
Top