Workbook.ContentTypeProperties (Excel)

Returns a MetaProperties collection that describes the metadata stored in the workbook.

Dim mpsContentTypeProperties As Office.MetaProperties
Set mpsContentTypeProperties = ActiveWorkbook.ContentTypeProperties