Sub AddBook_Sheets()
Workbooks.Add
For i = 31 To 1 Step -1
Worksheets.Add.Name = "Jan-" & i
Next
End Sub

Adjust to suit for each month.


Gord Dibben Excel MVP

On Thu, 20 Jan 2005 09:59:03 -0800, 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 ?