rename a group of spreadsheets in a workbook

[Guest]

is there an easy way to create a workbook with 31 spreadsheets with names
like 10-1, 10-2, etc.? It is a long process to rename each spreadsheet each
month.

thanks,

bob

 

[Guest]

Sub add_a_bunch()
For i = 1 To 31
Worksheets.Add.Name = "10-" & i
Next
End Sub