please try this, may be help full for you.
For each FileExtension in 'xlsx'
FOR Each FoundFile in FileList(Root &'\*.'& FileExtension)
(ooxml, embedded labels, table is Sheet1);
For Each SubDirectory in DirList (Root & '\*' )
Call ScanFolder('D:\Personal\LOADING DATA FROM MULTIPLE FOLDERS') ;
Instead of "D:\Personal\LOADING DATA FROM MULTIPLE FOLDERS" Give your source file Folder Name.
Ah, this didn't work for me initially, but now I see the other half of your script when I login. (Maybe I forgot to hit 'more' on the email side I was reading.) The 'for each next' loop someone else suggested worked off the bat, so giving that one correct answer credit and calling it a day. I will give this one helpful credit since it probably works and I just lack time for further testing right now.