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”)