rename a group of spreadsheets in a workbook

B

bob

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
 
G

Gary''s Student

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