Sub CreateMonthSheets()
Dim intTemp
ActiveWorkbook.Sheets.Add Count:=(12 - ActiveWorkbook.Sheets.Count)
For intTemp = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(intTemp).Name = MonthName(intTemp)
Next
End Sub

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


"Lois" wrote:

Great!! that saves me a lot of time! is there any way 12 sheets can
automativally be inserted into a workbook as oppose to 3? that way i dont
even have to insert the 12 tabs!!
--
Lois


"Mike H" wrote:

Hi,

You could rune this simple macro. Right click any sheet tab, view code and
paste the code in.

Sub Name_Sheets()
On Error Resume Next
For i = 1 To 12
Sheets(i).Name = MonthName(i)
Next
End Sub

Mike

"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