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