How do I display custom file properties in a cell

G

Glen Perry

I can define custom file properties using File / Properties, but how do I
create a formula or similar in a cell to reference the custom file properties
?

eg. If I specify a custom file property called "Project" and give it a value
of "Project XXX", how can I get that value displayed in a worksheet cell ?

Thanks
 
B

Bob Phillips

Function CustomProps(prop As String)


On Error GoTo err_value
CustomProps = ActiveWorkbook.CustomDocumentProperties(prop)
Exit Function


err_value:
CustomProps = CVErr(xlErrValue)
End Function


and can be used like so


=-CustomProps("myProperty")


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
G

Glen Perry

Hi Bob,

Thanks for your response. I am an intermediate user of Excel and I dont know
how to use VB. Can you help me a little further at all please ?

Many Thanks

Glen
 
B

Bob Phillips

Sure.

First, go to the VBIDE (Alt-F11)

Insert a new code module (Insert>Module)

Paste the code that I gave you in there.

Then go back to the Excel window and use it as shown

=CustomProps("Project")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
Top