Insert Custom Info into Excel Footer

[drawoh]

In an Excel file, I want to define custon properties, and I want to display these in the footer. I see all sorts of notes online about how to display properties and cell contents in the headers and footers, but none of it seems to work. I also see all sorts of menu items that are not on my machine here at work. Has anyone here sorted this out?

--
JHG

 

[3DDave]

What version of Excel?

 

[IDS]

I have never even used headers/footers in my spreadsheets before, but this seems to work:

Sub FooterInsert()
Application.ActiveSheet.PageSetup.LeftFooter = Range("A1").Value
End Sub

Based on code at:

https://www.extendoffice.com/documents/excel/1543-excel-put-cell-value-in-header-footer.html

but that has several lines that seem totally unnecessary.


Doug Jenkins
Interactive Design Services

http://newtonexcelbach.wordpress.com/

 

[3DDave]

This might be it:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.CustomDocumentProperties.Item("Client Name")

End Sub

 

[drawoh]

3DDave,

I believe I am runnning Office 365. I see explanations on how to display cell contents in the headers and footers, but they do not work. I guess I will have to try the VBA.

--
JHG

 

[IDS]

I should have added that I also tried a straightforward procedure from a web search, and it just didn't work, using Office 365.

Let us know if you need any help setting up the VBA.


Doug Jenkins
Interactive Design Services

http://newtonexcelbach.wordpress.com/

 

[drawoh]

IDS,

I have not tried setting up the VBA yet. I can make the form work in Microsoft Word. This may be my solution.

--
JHG