You should just make a Template and use that but this will do it. The myarry
line is ONE line

Sub NewMonthlyWB()
myarray = Array("Dec", "Nov", "Oct", "Sep", "Aug", "Jul", "Jun", "May",
"Apr", "Mar", "Feb", "Jan")
Workbooks.Add
With ActiveWorkbook
For Each i In myarray
Sheets.Add.Name = i
Sheets(i).Range("a1") = i
Next
Application.DisplayAlerts = False
For Each sh In Sheets
If Len(sh.Name) 3 Then sh.Delete
Next
Application.DisplayAlerts = True
End With
End Sub

--
Don Guillett
SalesAid Software

"beebop" wrote in message
...
most of my work is done on a monthly basis, so i would like to know if
there
is a quick way of setting up new workbooks with 12 worksheets each
containing
the name of the relevant month on the sheet tab and in cell a1 on the
worksheet