Hi clyonesse

With the list in "Sheet1" A1:A31
jan-1
jan-2
.....
....

You can use this macro to create a workbook with the sheets you want

Sub test()
Dim cell As Range
Dim WSNew As Worksheet
Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Add(1)
wb2.Sheets(1).Name = wb1.Sheets("Sheet1").Range("A1").Text
For Each cell In wb1.Sheets("Sheet1").Range("A2:A100").SpecialCells (xlCellTypeConstants)
Set WSNew = wb2.Worksheets.Add(after:=Worksheets(wb2.Worksheet s.Count))
WSNew.Name = cell.Text
Next cell
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



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