Sub GetSchema() Dim MySchema As String 'Get the schema MySchema = ActiveWorkbook.XmlMaps("EmployeeSales_Map").Schemas(1).XML Open "C:\MySchema.xsd" For Output As #1 Print #1, MySchema Close #1 End Sub