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
wrote:

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.