Sub Load_ReadXMLDoc() Dim oMyDoc As DOMDocument Set oMyDoc = New DOMDocument oMyDoc.async = False oMyDoc.Load (ThisWorkbook.Path & "\SalesByRegion.xml") Debug.Print oMyDoc.XML Set oMyDoc = Nothing End Sub