Is there a more efficient way to import multiple XML files

[anrichards22]

I am using the following code to import XML files, which works as intended until the number of files in the directory starts getting beyond 50. At this point Excel starts freezing and/or taking forever to complete the import. (forever = 2 hours or more)

fName = Dir(fPath & "*.xml")  
 Do While Len(fName) > 0
        ActiveWorkbook.XmlMaps("CrtJdg_Map").Import URL:=fName 
        fName = Dir    '
 Loop

I have some folders with file counts of 2000+
Is there a more efficient way to import > 50 XML files?

Any assistance appreciated.