Thanks for the feedback.

Gord

On Tue, 20 Sep 2005 13:39:06 -0700, PCakes
wrote:

Thank you, works wonderful!

"Gord Dibben" wrote:

Sub DupSheet()
Dim Counter As Integer
Application.ScreenUpdating = False
Copies = InputBox("How many Copies")
For Counter = 0 To Copies - 1
Sheets("Sheet1").Copy , Worksheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "Jan - " & Counter + 1
Next
End Sub


Gord Dibben Excel MVP

On Sun, 18 Sep 2005 14:54:02 -0700, PCakes
wrote:

If I wanted to use this macro, but copy a specific sheet (Template) several
time and have it nameed as Jan-1, Jan-2, etc... How would I accomplish this?

Pcakes

"clyonesse" wrote:

Need to create several spreadsheets ... each containing multiple worksheets
...

Example: Monthly spreadsheets containing a separate worksheet for each day
of that month ... Jan-1; Jan-2; Jan-3, etc.

Aside from inserting/copying on an individual worksheet basis (too
time-consuming), is there any way to create & name multiple worksheets within
the same spreadsheet ?