Is it possible to point on the Custom footer to a cell on the sheet?

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value
End With
End Sub


Gord Dibben MS Excel MVP

On 29 Mar 2007 09:54:39 -0700, wrote:

Is it possible to point on the Custom footer to a cell on the sheet?

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

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

Ok, I see what you are saying. It actually takes the value and past it
to the footer. It does not update it when the cell is updated. Is this
correct?

I would like the footer to show an As of date that I have in a cell.
The As of date is not the same as Today, so I can not use Now()

Any solution on how to refresh the information of the cell?
Thanks