Adding a cell reference to a footer?

[mercil]

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?

 

[Gord Dibben]

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