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
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"Jugglertwo" wrote in message
...
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