...now assuming the above posted vba code was run from a remote file and the xml sent via email.

And, you wanted it in your Spreadsheet

[vba]
Sub rs2xl()
cXML = Application.ActiveWorkbook.Path & "\" & "fabrs.xml"
If Dir(cXML) = "" Then Exit Sub
Set oRS = CreateObject("ADODB.Recordset")
oRS.Open cXML, "Provider=msPersist", 1, 4, 256
Application.ActiveWorkbook.ActiveSheet.Range("A1").CopyFromRecordset oRS
oRS.Close
Set oRS = Nothing
End Sub

[/vba]

Again. just a basic example, obviously formatting and other sundry items would come into play... Stan