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