Display Custom Document Properties in Excel WorkSheet

How do I embed SharePoint document properties in Excel ?

In Excel, ALT-F11 to bring up VBA Editor

Use Insert | Module

Sharepoint Properties:

Function DocumentServerProperty(Property As String)
Application.Volatile
On Error GoTo NoDocumentPropertyDefined
DocumentServerProperty = ActiveWorkbook.ContentTypeProperties(Property)
Exit Function

NoDocumentPropertyDefined:
DocumentServerProperty = CVErr(xlErrValue)
End Function

In cell: =DocumentServerProperty(“PropertyName”)