Adding a cell reference to a footer?

  • Thread starter Thread starter mercil
  • Start date Start date
M

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?
 
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
 
Back
Top