View Single Post
  #4   Report Post  
JohnJ
 
Posts: n/a
Default

These answers appear to work for new spreadsheets but I also would like to
add the footer to spreadsheets that I have received from other sources like
email or files from colleagues, hence the desire to have it included in the
footer drop down menu so that it could be added simply during printing setup.
I appreciate the answers received but I am uncertain how they could be used
without merging spreadsheets or other manipulation. Am I wrong about this?

John

"Gord Dibben" wrote:

John

Custom footers are saved with the workbook and would be available in the drop
down for that workbook only.

I assume you wish this custom footer to be available for all workbooks and
sheets.

You could create a Book.xlt template to base all new workbooks upon.

You could also create a Sheet.xlt to base all new worksheets on.

To have all sheets contain the same footer, you can group the sheets and do
your footer setup on all sheets at once.

OR you could use a macro to set all sheets to the same footer in existing
workbooks and all new workbooks. Store the macro in your Personal.xls or in
an add-in.

Sub Set_All_Sheets()
Dim wkbktodo As Workbook
Dim ws As Worksheet
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
With ws.PageSetup
.LeftFooter = "&F"
.CenterFooter = """Page &P/&N"""
.RightFooter = "&D"
End With
Next ws
End Sub


Gord Dibben Excel MVP



On Tue, 20 Sep 2005 09:17:03 -0700, "JohnJ"
wrote:

My standard practice is to set up a footer with "&[file]" in the left custom
footer box, "Page &[Page]/&[Pages]" in the center box and "&[Date]" in the
right box. I would like to save this in the drop down menu but have not been
able to find out how to do this. There are other footers there and I have no
idea where they came from. Any help? Thanks.