How do I increment tabs by date in a workbook?

[Guest]

I have a workbook for each day of the month of June. The name in each tab
will be each day of the month. I don;t want to have to rename each tab. I
should be able to let excel update the tabs. HOW?

 

[Don Guillett]

Sub NewWorksheet()
Dim i As Integer
on error resume next
For i = 2 To 31
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "Jun" & i
Next i
End Sub

 

[Don Guillett]

Work backwards to not have to sort
Sub mynewsheets()
on error resume next
For i = 31 To 1 Step -1
On Error Resume Next
Sheets.Add.Name = "Jun" & i
Next i
End Sub

 

[Gord Dibben]

Harley

Try this code from Chip Pearson.

Sub NameSheets()
'Chip Pearson Feb 14th, 2007
Dim Ndx As Long
Dim StartMonth As Variant
StartMonth = Application.InputBox(Prompt:="Enter the month number.", Type:=1)
If StartMonth = False Then
Exit Sub
End If
For Ndx = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(Ndx).Name = Format(DateSerial( _
IIf(StartMonth = 1, Year(Now) + 1, Year(Now)), StartMonth, Ndx), _
"dd mmm yyyy")
Next Ndx
End Sub


Gord Dibben MS Excel MVP