Sub SheetCopy22()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 100
ActiveSheet.Copy Befo=Sheets(1)
Next i
Application.ScreenUpdating = True
End Sub


Gord

On Wed, 4 Oct 2006 05:15:02 -0700, STEVE
wrote:

Duplicate 1 sheet in workbook "A" to 100 sheets in workbook "A".
A QUICK way!!! (not answers below since that is very slow and manual)
"Gord Dibben" wrote:

Copy from where?


Gord Dibben MS Excel MVP

On Tue, 3 Oct 2006 08:47:02 -0700, STEVE
wrote:

Is there a quick way to copy 1 sheet into a 100 sheet workbook?