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?