returns a workbook object with the XML data mapped to your spreadsheet:
Sub ImportXMLtoList() Dim strTargetFile As String
Application.DisplayAlerts = False
strTargetFile = ThisWorkbook.Path & "\Employee.xml"
Workbooks.OpenXML FileName:=strTargetFile, LoadOption:=xlXmlLoadImportToList
Application.DisplayAlerts = True End Sub