I want the contents of a specific cell to be in a footer, can I do this?
I want the contents of a specific cell to be in a footer, can I do this?
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks