make multiple copies of a sheet in a new workbook
 

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?

Answer: make multiple copies of a sheet in a new workbook
 

Yes, there is a way to make multiple copies of a sheet in a new workbook in Excel 2003. Here are the steps:

1. Open the workbook that contains the sheet you want to copy.
2. Right-click on the sheet tab and select "Move or Copy" from the menu.
3. In the "Move or Copy" dialog box, select "New Workbook" from the "To book" dropdown menu.
4. Check the "Create a copy" checkbox.
5. In the "Before sheet" dropdown menu, select "(move to end)".
6. Click "OK".

This will create a new workbook with a copy of the sheet you selected. To make 29 copies of the sheet, simply repeat these steps 28 more times.

Alternatively, you can use a macro to automate this process. Here's an example macro that will create 29 copies of the active sheet in a new workbook:

1. Press Alt + F11 to open the Visual Basic Editor.
2. Click on "Insert" in the menu bar and select "Module".
3. Paste the following code into the module:

4. Press F5 to run the macro.

This will create 29 copies of the active sheet in separate workbooks, each named "Copy 1.xls", "Copy 2.xls", etc. You can modify the macro to suit your needs, such as changing the number of copies or the naming convention.

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?

Hi

not quite all at once without using code ..
but one way to get to what you want reasonably fast would be:
with the workbook that you want to copy the sheet from open (let's call it
book 1) choose tools / options / general and set sheets in new workbook to
28
now choose file / new and open a new workbook with the 28 sheets (book 2) -
go back to tools / options / general and set sheets in new workbook to 3
(or whatever you want)

now from the window menu switch back to book 1
right mouse click on the sheet that you want to copy to the new book
choose
move or copy sheet
tick the
create a copy check box (v.important)
from the drop down list choose Book 2
choose to copy it before all other sheets
click OK

- you will be automatically switched to book 2 with the sheet copied in.
now you need to select all the sheets in the workbook - the "copied in"
sheet should be in front of you and on the left of all other sheet tabs,
click on its sheet tab and then click on the little arrow (bottom left of
screen) that takes you to the last worksheet - hold down the shift key &
click on the last worksheet
you should see all the sheet tabs turn white (let the shift key go)
now select all the cells on the sheet that you can see (should still be the
"copied in" sheet)
then choose from the menu
edit / fill / across worksheets
all
Ok
and you should now have 29 copies of the same thing,

Don't forget to ungroup the sheets, by right mouse clicking on a sheet tab
and choosing ungroup sheets.

Cheers
JulieD


"galeanne" wrote in message
...
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?

Sub DupSheet()
Dim Counter As Integer
Application.ScreenUpdating = False
For Counter = 1 To 28
ActiveSheet.Copy , Worksheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "Sheet" & Counter + 1 ''Modify as needed
Next
End Sub


Gord Dibben Excel MVP

On Sun, 13 Feb 2005 01:21:01 +0800, "JulieD"
wrote:

Hi

not quite all at once without using code ..
but one way to get to what you want reasonably fast would be:
with the workbook that you want to copy the sheet from open (let's call it
book 1) choose tools / options / general and set sheets in new workbook to
28
now choose file / new and open a new workbook with the 28 sheets (book 2) -
go back to tools / options / general and set sheets in new workbook to 3
(or whatever you want)

now from the window menu switch back to book 1
right mouse click on the sheet that you want to copy to the new book
choose
move or copy sheet
tick the
create a copy check box (v.important)
from the drop down list choose Book 2
choose to copy it before all other sheets
click OK

- you will be automatically switched to book 2 with the sheet copied in.
now you need to select all the sheets in the workbook - the "copied in"
sheet should be in front of you and on the left of all other sheet tabs,
click on its sheet tab and then click on the little arrow (bottom left of
screen) that takes you to the last worksheet - hold down the shift key &
click on the last worksheet
you should see all the sheet tabs turn white (let the shift key go)
now select all the cells on the sheet that you can see (should still be the
"copied in" sheet)
then choose from the menu
edit / fill / across worksheets
all
Ok
and you should now have 29 copies of the same thing,

Don't forget to ungroup the sheets, by right mouse clicking on a sheet tab
and choosing ungroup sheets.

Cheers
JulieD


"galeanne" wrote in message
...
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?