danzil

VBA macro OK with you?

Sub SheetCopy22()
Dim i As Long
Application.ScreenUpdating = False
howmany = InputBox("Copy Active Sheet How Many Times?")
For i = 1 To howmany
ActiveSheet.Copy After:=Sheets(1)
Next i
Application.ScreenUpdating = True
End Sub

Gord Dibben Excel MVP

On Fri, 17 Dec 2004 10:49:06 -0800, danzil
wrote:

Hi. I am using windows 2000
I am trying to duplicate a sheet in my Excel spreadsheets 20 times without
having to copy one at a time. is there a way to do this?
In other words I want to repeat my first sheet 20 times so that I have 20
sheet of the same information.
Thanks