duplicating sheets

[Allan Koodray]

Select Sheet1, depress <Ctrl>, drag the sheet to the
right. Now you have two sheets.
Select Sheets 1 & 2, depress <Ctrl>, drag the sheet to
the right. Now you have four sheets.
Select Sheets 1 - 4, depress <Ctrl>, drag the sheet to
the right. Now you have eight sheets.
Select Sheets 1 - 8, depress <Ctrl>, drag the sheet to
the right. Now you have sixteen sheets.
Select Sheets 1 - 16, depress <Ctrl>, drag the sheet to
the right. Now you have thirty-two sheets.
Select Sheets 1 - 32, depress <Ctrl>, drag the sheet to
the right. Now you have sixty-four sheets.
Select Sheets 1 - 36, depress <Ctrl>, drag the sheet to
the right. Now you have on hundred sheets.

As you can see, you will need to do this only 7 times.
You will, however, need to re-name each sheet
individually if that is needed.

Allan

-----Original Message-----
I have a workbook that needs to contain 100 copies of

the same sheet. How can I make 100 copies without going
to copy sheet 100 times?

 

[Allan Koodray]

If you are comfortable with macors try this:

Sub SheetCopy()

x = 1
Do While x < 100
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Sheets(1)
x = x + 1
Loop

End Sub

Allan