I want to create and name 365 worksheets...

D

Dr. Darrell

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
 
R

Ron de Bruin

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
 
Top