You cannot set a footer to a cell value without using VBA.

If you want also to do it on multiple selected sheets you must use another
macro.

Sub Cell_In_SelectlFooters()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
ws.PageSetup.CenterFooter = ws.Range("A1").Value
Next
End Sub

Or all worksheets............

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


Gord

On 29 Mar 2007 11:09:28 -0700, wrote:

Thank you
I'm doing it manually (Not a Macro)
Can I point on all sheets to Sheet1 cell A1?
What do I type in the footer?
= .Range("A1").Value doesn't work
Thanks