Showing Custom file properties in Header

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is it possible to get 'Custom File Properties' to show in excel headers and
footer? If, so how do you do this?
 
Lets first set up a custom property called flosp and give it the value 666:

Sub firstone()
Dim dp As DocumentProperties
Set dp = ThisWorkbook.CustomDocumentProperties
dp.Add Name:="flosp", _
LinkToContent:=False, _
Type:=msoPropertyTypeNumber, _
Value:=666
End Sub

Next we set up the header:

Sub nextone()
n = ThisWorkbook.CustomDocumentProperties("flosp").Value
ActiveSheet.PageSetup.LeftHeader = n
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Printing Excel File Custom Properties in the Footer 3
Including document property values in Excel headers 2
Custom File Properties 2
Insert file name in header without showing extension 1
Showing Letters For Column Headers Rather Thann Numbers ? 1
Question about HEaders & Footers 1
How can I use custom properties in an Excel header or formula? 5
need to delete empty pages in my worksheet 1

Back
Top