Save the workbook with the code as a template and then when you require a
new workbook open the template, this will create a new workbook (with the
code) and rename the workbook sequentially e.g. if you called the template
MyCodeBook then when you open the template the new workbook will be named
MyCodeBook1, the next one MyCodeBook2 etc....


--
Cheers
Nigel



"Trond" wrote in message
...
I have a macro that automatically controls the format of cells in a
worksheet.
Example:
Sheet1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Range("A1").EntireColumn.AutoFit
End Sub


Now I want make a macro that insert a new worksheet and the loads this
automatic macro into the new worksheet. Is this possible?

BR
Trond