Hi,

Is there a way to create a macro/option that will apply to all new
books a predifined header and footer.

Thanks in advance

Couple of ways to go.

Open a new workbook. Customize as you wish.

FileSave As Type: scroll down to Excel Template(*.XLT) and select. Name your
workbook "BOOK"(no quotes). Excel will add the .XLT to save as BOOK.XLT.

Store this workbook in the XLSTART folder usually located at........

C:\Documents and Settings\username\Application Data\Microsoft\Excel\XLSTART

This will be the default workbook for FileNew or the Toolbar button FileNew or
CTRL + n

WARNING................Do not use FileNew...Blank Workbook or you will get the
Excel default workbook.

NOTE: Existing workbooks are not affected by these settings.

You can also open a new workbook and delete all but one sheet. Customize as
you wish then save this as SHEET.XLT in XLSTART folder also. It now becomes
the default InsertSheet.

More can be found on this in Help under "templates"(no quotes).

Second method would be a macro in your Personal.xls or an add-in which you would
run after you have opened a new default Excel workbook.

Example macro...............

Sub Cell_In_AllFooters()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.PageSetup.CenterFooter = ws.Range("A2").Value
Next
End Sub



Gord Dibben Excel MVP



On Thu, 13 Dec 2007 11:16:04 -0800 (PST), Carpe Diem
wrote:

Hi,

Is there a way to create a macro/option that will apply to all new
books a predifined header and footer.

Thanks in advance