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

On Thu, 6 Nov 2008 13:17:02 -0800, Fuzzy
wrote:

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?