Insert several Sheets
 

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

Thanks

JPG

Insert several Sheets
 

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:

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

Thanks

JPG

Insert several Sheets
 

"juanpablo" wrote:

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

Thanks

JPG

Insert several Sheets
 

"excelent" wrote:

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:

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

Thanks

JPG

Insert several Sheets
 

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.

--
Regards
Roger Govier

"supoch14" wrote in message
...


"juanpablo" wrote:

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

Thanks

JPG