Open workbooks within a directory in numerical order, like windows name sorting does

I am able to open all files in a directory easily but the problem is excel opens them in alpha numeric order.

Excel opens them like this..........

xyz1152.xlsx
xyz1248.xlsx
xyz567.xlsx
xyz672.xlsx
xyz768.xlsx
xyz877.xlsx
xyz9.xlsx
xyz96.xlsx
xyz988.xlsx

I need them opened in increasing order.
xyz9
xyz96
xyz567
xyz672
xyz768
xyz877
xyz988
xyz1152
xyz1248

I plan to pull a row of data off each file and place that row in order downward on a master sheet.
a b c d e f - from 96
a b c d e f - from 567
a b c d e f - from 672
etc etc




This is what I have so far with help from other searching...

Problem is the CreateFileList is not in the numerical order that I need.

Please Login or Register  to view this content.

Hi,
If the part "xyz" is constant it shall be easy task.
instead of:

Please Login or Register  to view this content.

write in wsList.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) only numerical part of fName.
For instance

Please Login or Register  to view this content.

4 because we drop first 3 letters and start from 4th (which is already a digit)
7 because besides first 3 letters, we do not want also last 4 characters ".xls"

Please Login or Register  to view this content.

shall be moved after sorting, and between sorting and AutoFit removed parts of filename shall be restored.
for instance

Please Login or Register  to view this content.