What is the quickest method to insert & name multiple worksheets .

[clyonesse]

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

EXAMPLE: Monthly spreadsheets will require separate worksheets for each day
of that month ... Jan-1; Jan-2; Jan-3 ... Jan-31

Aside from inserting/copying/naming each worksheet on an individual basis
(too time-consuming) ... is there a quicker method to create/insert/name all
the worksheets needed within a workbook ?

[crispbd]

Here is a macro and function which will create new sheets for
each value found in column A of worksheet "SheetList"

-Create the "SheetList" sheet and in column A enter the names of sheets you want to add
- Run the macro "Main"

Sub Main()
Dim SheetList As Object, counter As Integer
Set SheetList = ThisWorkbook.Sheets("SheetList")
For counter = 1 To SheetList.UsedRange.Rows.Count
Call CreateSheet(SheetList.Cells(counter, 1).Value)
Next counter
End Sub

Function CreateSheet(ByVal sname As String)
On Error GoTo endfunction
Dim ns As Object
Set ns = ThisWorkbook.Sheets.Add(, ActiveSheet)
ns.Name = sname
Exit Function
endfunction:
End Function