Contents of cell in footer

[dbhenkel]

I want the contents of a specific cell to be in a footer, can I do this?

[dominicb]

Good evening Dbhenkel

I can't find a way of doing this directly, but there is this VBA alternative.

Sub cell_footer()
For Each sht In ActiveWorkbook.Sheets
sht.PageSetup.LeftFooter = Sheets("Sheet1").Range("A1")
Next sht
End Sub

This will change the left footer in all the worksheets in your workbook to the contents of sheet1, a1. The only catch is that after the cell value has changed this macro needs running before the output is sent to the printer. If this isn't quite what you need post back with your requirements and I'll show you the necessary tweaks that need making to fit what you need.

HTH

DominicB