Hi,

You could add the sheets with code but you can also do it using but that
will affect all workbooks you open. Try this modified code

Sub Name_Sheets()
numsheets = Worksheets.Count
For i = 1 To 12
If i numsheets Then
Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = MonthName(i)
Else
Sheets(i).Name = MonthName(i)
End If
Next
End Sub

Mike

"Jacob Skaria" wrote:

Please create 12 sheets or set the number of default sheets to 12 before
running this maco.

If this post helps click Yes
---------------
Jacob Skaria


"Lois" wrote:

Hi
When setting up spreadsheets in work, the tabs are always named the months
of the year. Is there any quick way of naming tabs in a workbook with a
'default' name so they dont have to be continously typed onto each workbook?
--
Lois