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