Insert several Sheets

[juanpablo]

I need to create a macro that can insert sheets from 01DEC to 31DEC
Each Sheet should be named with each day.

Thanks

JPG

 

[excelent]

Sub addSheet()
On Error Resume Next
For t = 31 To 1 Step -1
Sheets.Add.Name = Format(t, "00") & "DEC"
Next
End Sub


"juanpablo" skrev:

 

[supoch14]

I need to create a macro that can insert sheets from 01DEC to 31DEC
Each Sheet should be named with each day.

Thanks

JPG

 

[supoch14]

Sub addSheet()
On Error Resume Next
For t = 31 To 1 Step -1
Sheets.Add.Name = Format(t, "00") & "DEC"
Next
End Sub


"juanpablo" skrev:

 

[Roger Govier]

Hi

Take a look at the sample file I put on ExcelUserGroup.org
http://excelusergroup.org/media/p/236.aspx

If you want the Month name as well as the day on each sheet it will be easy
to amend.