Header & Footer

[Carpe Diem]

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

 

[Gord Dibben]

Couple of ways to go.

Open a new workbook. Customize as you wish.

File>Save 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 File>New or the Toolbar button File>New or
CTRL + n

WARNING................Do not use File>New...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 Insert>Sheet.

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