Thread: Excel Footers
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default Excel Footers

You don't.

Couple of ways to go.

Use a macro to set the footers on all sheets of a workbook.

Sub Path_All_Sheets()
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
ws.PageSetup.RightFooter = ActiveWorkbook.FullName & " " & Chr(13) _
& Application.UserName & " " & Date
Next
End Sub

Store in your Personal.xls so's it's available for all open workbooks.

Second method............................

Open a new workbook. Customize as you wish. To set a footer for each sheet,
select a sheet then right-click and "select all sheets".

Enter your footer on the active sheet and will be done to all. Ungroup sheets
when done.

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).


Gord Dibben MS Excel MVP

On Sat, 24 May 2008 07:59:00 -0700, Karen
wrote:

I use the same custom footer on all of my spreadsheets. How do I save it to
the preset footer list so that I don't have to re-enter it as custom on all
my spreadsheets?