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

--
Gary''s Student - gsnu200748


"bob" wrote:

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