Greg

Name the sheets as you add them.

Sub Add_Sheets()
For i = 31 To 1 Step -1
Worksheets.Add.Name = "January " & i
Next
End Sub


Gord Dibben MS Excel MVP


On Mon, 8 Jan 2007 12:06:00 -0800, Gary''s Student
wrote:

Hi Greg:

for three days of the month:

Sub sname()
dnames = Array("First of Month", "Second of Month", "Third of Month")
For i = 1 To 3
Sheets(i).Name = dnames(i - 1)
Next
End Sub

adapt as you desire