Hi Darrell

Try this

Sub test()
Dim I As Integer
For I = 1 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2006, 1, I), "yyyy-mmm-dd")
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Dr. Darrell" wrote in message ...
I want to create 365 worksheets and name them for each day of 2006. I would
like to avoid typing each tab.

Can someone explain the method to do this?

Darrell