Create Tabs
One mo
Option Explicit
Sub testme()
Dim dCtr As Long
Dim myDate As Date
myDate = Date 'today
'or specify the month to generate
'myDate = DateSerial(2005, 12, 1) 'dec 2005
For dCtr = Day(DateSerial(Year(myDate), Month(myDate) + 1, 0)) To 1 Step -1
Worksheets.Add.Name = dCtr
Next dCtr
End Sub
David T wrote:
Is there any way I can create a new tab for every day of the month and name
that tab whatever the day of the month it is...ie Tab 1 will be named "1"
(for day 1) and Tab 2 will be name "2" (for day 2) and so on and so forth.
--
Dave Peterson
|