How to pull XML data into another excel sheet using VBA?

[paulked]

Sub OpenAnyXL()
    Dim fName As String
    fName = Application.GetOpenFilename("Excel Files (*.xl*),*.xl*", 1, "Select Excel File", "Open", False)
    If fName = False Then Exit Sub
    Workbooks.Open fName
End Sub