Showing Custom file properties in Header

[Guest]

Is it possible to get 'Custom File Properties' to show in excel headers and
footer? If, so how do you do this?

 

[Guest]

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