in vba, how to import mutiple xml file into different worksheets of same workbook

[vincent_W]

I have refer to the code reply on the other thread

Sub
Filename = Application.GetOpenFilename(FileFilter:="Excel Files (*.xml*), *.xml*", Title:="Choose File To Copy", MultiSelect:=False)

If Filename = "False" Then Exit Sub

ActiveWorkbook.XmlImport URL:= Dir(Filename), ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")



MsgBox "You selected " & Dir(Filename)


End Sub

but this code can't do something I require,

any suggestion ??