gale
Select the sheet then right-click on tab and "Move or Copy"
Check the "create a copy" button and in "to book:" select New Book.
Now you have one copy in a new book.
To make 28 more run this macro.
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 Fri, 11 Feb 2005 07:27:05 -0800, "galeanne"
wrote:
I am using excel 2003 and I need to make 29 copies of one sheet form a
workbook to another all at once. Does anyone know of a way to do that?
|