How can I insert a value from an Excel Worksheet into a footer?

[Guest]

I have a workbook with several tabs and would like to have a value in the
footer that is stored in a "control information" tab so don't have to enter
it in the footer for each tab.

 

[Gord Dibben]

Did you know that if you select all sheets(right-click on one and "select all
sheets") you can set most print options including headers and footers?

If you wish a macro......

Sub CellInFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.CenterFooter = Sheets("Sheet1").Range("A1").Text
Next ws
End Sub


Gord Dibben Excel MVP

On Tue, 29 Mar 2005 13:09:03 -0800, "S Barker" <S

 

[Guest]

DUH! I totally forgot that I could select all the sheets and set the footer
there. Thanks for the reminder.

Thanks.

 

[Guest]

DUH! I totally forgot that I could select all the sheets and set the footer
there. Thanks for the reminder.

Thanks.

 

[Gord Dibben]

Thanks for the feedback Sandy.

Welcome to the world of duh!

You have lotsa company.


Gord