One for every month
 

After using this code to create a worksheet for each month of the year in an
existing workbook and saving it,

Sub AddSheets()
Dim sh As Worksheet
Dim i As Long

With ActiveWorkbook

Set sh = ActiveSheet
For i = 1 To 12
sh.Copy After:=.Worksheets(.Worksheets.Count)
ActiveSheet.Name = Format(DateSerial(Year(Date), i, 1), "mmmm")
Next i
End With
End Sub

Saving it created a new workbook with the same name but the extension .xlsm
and the Excel icon has a yellow overlay with an exclamation mark. Does this
mean that something is wrong with the workbook?

One for every month
 

XL 2007 has different file extensions. .xlsm is a macro enabled workbook. If
you are not on 2007 then you must have the compatability pack installed. At
which point you can up convert files to XL 2007 with Save As.
--
HTH...

Jim Thomlinson


"DonV" wrote:

After using this code to create a worksheet for each month of the year in an
existing workbook and saving it,

Sub AddSheets()
Dim sh As Worksheet
Dim i As Long

With ActiveWorkbook

Set sh = ActiveSheet
For i = 1 To 12
sh.Copy After:=.Worksheets(.Worksheets.Count)
ActiveSheet.Name = Format(DateSerial(Year(Date), i, 1), "mmmm")
Next i
End With
End Sub

Saving it created a new workbook with the same name but the extension .xlsm
and the Excel icon has a yellow overlay with an exclamation mark. Does this
mean that something is wrong with the workbook?