View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default SS tabs reading Dec 1, Dec 2, Dec 3, etc

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.



Dave Peterson wrote:

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

Jugglertwo wrote:

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

"Dave Peterson" wrote:

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

Jugglertwo wrote:

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


--

Dave Peterson


--

Dave Peterson