How do i create upto 50 copies of a spreadsheet within one workboo

  • Thread starter Thread starter Paul
  • Start date Start date
P

Paul

i have a single spreadsheet which will have various cells such a text, data.
I want to create up to 50 copies as tabs client1, client2, client3, etc

any ideas
 
Make sure the original sheet is named "client". The run this simple macro:

Sub Macro1()
For i = 1 To 50
Sheets("client").Copy Before:=Sheets(1)
ActiveSheet.Name = "client" & i
Next
End Sub
 
Here is a method that puts the new sheets at the end of any existing sheets. Simply activate the sheet you want to copy (that is an important step) and then run the CreateClientSheets macro...

Sub CreateClientSheets()
Dim X As Long
Dim WSindex As Long
WSindex = ActiveSheet.Index
Application.ScreenUpdating = False
For X = 1 To 5
Sheets(WSindex).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Client" & X
Next
Sheets(WSindex).Activate
Application.ScreenUpdating = True
End Sub
 
Hi,

To work with a non macro approach, go to Insert > Worksheet. A new
worksheet will not get created. Now keep pressing F4 till you have 50
sheets.

--
Regards,

Ashish Mathur
Microsoft Excel MVP
www.ashishmathur.com
 
Ashish

That only inserts new worksheets, does not copy the original.


Gord Dibben MS Excel MVP
 
perfect response it worked.


--
Thanks

Paul


Gary''s Student said:
Make sure the original sheet is named "client". The run this simple macro:

Sub Macro1()
For i = 1 To 50
Sheets("client").Copy Before:=Sheets(1)
ActiveSheet.Name = "client" & i
Next
End Sub
Click to expand...
 
Is there a way to name the tabs with dates?

In particular, July 1, 2009; July 8, 2009; July 15, 2009; etc.?

thanks!
 
Back
Top