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

S

S Barker

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

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
 
S

Sandy Barker

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

Thanks.
 
S

Sandy Barker

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

Thanks.
 
G

Gord Dibben

Thanks for the feedback Sandy.

Welcome to the world of duh!

You have lotsa company.


Gord
 
Top