Marko

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


Gord Dibben Excel MVP

On 10 Dec 2005 14:07:14 -0800, "marko" wrote:

Hi again!
Is there a way to make more than one copy of a sheet? Lets say that i
would like to copy my sheet 12 times, how can i do that?
Thanks again.

Marko