Copying worksheets
 

How can I make several copies of the same worksheet at the same time?
Excel 2003

tiger21

Copying worksheets
 

Make one copy then select both those and copy to get 4 copies.

Select those 4 and copy to get eight copies.

Use a macro.........

Sub SheetCopy()
Dim i As Long
Dim shts As Long
On Error GoTo endit
Application.ScreenUpdating = False
shts = InputBox("How many times", , 3)
For i = 1 To shts
ActiveSheet.Copy After:=ActiveSheet
Next i
Application.ScreenUpdating = True
endit:
End Sub


Gord Dibben MS Excel MVP

On Fri, 28 Dec 2007 10:07:00 -0800, tiger21
wrote:

How can I make several copies of the same worksheet at the same time?
Excel 2003

tiger21