SS tabs reading Dec 1, Dec 2, Dec 3, etc

[Guest]

I have an Excel colleague that wishes to create a ss for every day of the
year so 365 ss in a workbook.
Is there a quick way to create these?
I would assume it would involve some vba code.
Any assistance would be greatly appreciated !
Thanks!
Jugglertwo

 

[Dave Peterson]

Option explicit
sub testme()
dim dCtr as long

for dctr = dateserial(2007,1,1) to dateserial(2007, 12, 31)
worksheets.add.name = format(dctr, "mmm d")
next dctr

end sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[Guest]

Dave, thank you so much for the code. It worked great !
I hate to be a pain, but ........
The code produces Dec 25, dec 24, Dec 23, Dec 22....Jan 3, Jan 2, Jan 1
Can the code easily be adjusted so I get Jan 1, Jan 2, Jan 3........Dec 22,
Dec 23, Dec 24, Dec 25?

Thanks!
Jugglertwo

 

[Bernard Liengme]

Opps, first line should be
mydate = DateSerial(2008, 12, 31)

 

[Dave Peterson]

Change:
for dctr = dateserial(2007,1,1) to dateserial(2007, 12, 31)
to
for dctr = dateserial(2007, 12, 31) to dateserial(2007,1,1) step - 1

 

[Bernard Liengme]

Let's try again

Sub makesheet()
mydate = DateSerial(2008, 12, 31)
Do Until mydate = DateSerial(2007, 12, 31)
Set NewSheet = Worksheets.Add
myname = Format(mydate, "mmm dd")
NewSheet.Name = myname
mydate = mydate - 1
Loop
End Sub

best wishes

 

[Dave Peterson]

Just to add...

In the code I used, I used dates in 2007. If you want dates in 2008 (including
Feb 29), then change those dates in the "for dctr" line.

 

[Guest]

Thanks for your continued assistance !
It is appreciated !
Jugglertwo

Just to add...

In the code I used, I used dates in 2007. If you want dates in 2008 (including
Feb 29), then change those dates in the "for dctr" line.

 

[Guest]

thanks for your additional code to solve this problem.
I have filed the code away. I will use it now and in the future.
Thanks!
Jugglertwo