Sub Cell_In_AllFooters()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Sheets
WS.PageSetup.CenterFooter = Sheets("Sheet1").Range("A2").Value
Next
End Sub


Gord Dibben MS Excel MVP

On Wed, 2 Dec 2009 12:25:01 -0800, mercil
wrote:

Have created a worksheet in which the user fills out info and it carries over
into the other tabs. Is there a way to have one of the cells in the first
worksheet referenced as part of the footer for all of the corresponding tabs?