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
SalesAid Software

"Harley" wrote in message
...
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?
--
Roaddog