Workbook.XmlNamespaces (Excel)

Returns an XmlNamespaces collection that represents the XML namespaces contained in the specified workbook.

Dim xnsXmlNamespaces As XmlNamespaces
Set xnsXmlNamespaces = ActiveWorkbook.XmlNamespaces