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

J

Jugglertwo

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
 
J

Jugglertwo

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
 
D

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
 
B

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
 
D

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.
 
J

Jugglertwo

Thanks for your continued assistance !
It is appreciated !
Jugglertwo

Dave Peterson said:
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.
Click to expand...
 
J

Jugglertwo

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
 
Top