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.

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.

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

Thanks.

"Gord Dibben" wrote:

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.

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

Thanks.

"Gord Dibben" wrote:

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.

Thanks for the feedback Sandy.

Welcome to the world of duh!

You have lotsa company.


Gord

On Tue, 29 Mar 2005 14:51:03 -0800, Sandy Barker
wrote:

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

Thanks.

"Gord Dibben" wrote:

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.