View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim Thomlinson Jim Thomlinson is offline
external usenet poster
 
Posts: 5,939
Default 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?