Footer

[Fuzzy]

In Excel I have many tabs and each one of those workbooks I have the date in
the footer. I want to have all the dates tied together so I tried entering a
formula like =Tests!A104 where Tests is a tab and in A104 I entered 5
November 2008. This is not working for me. How do I get all the Dates in the
footers to be the same as a date that I choose?

 

[Sheeloo]

I believe the only way is to use VBA using code similar to the following;

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range("a1").Value
End Sub

OR

Sub UpdateHeader()
ActiveSheet.PageSetup.Leftheader = Range("A1").Value
End Sub

See http://support.microsoft.com/kb/273028

 

[Gord Dibben]

For footers on all sheets...............

Sub Cell_In_AllFooters()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.PageSetup.CenterFooter = Sheets("Tests").Range("A104").Value
Next
End Sub


Gord Dibben MS Excel MVP