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 ?
|