VBa check all file name in folder then copy range to Master workbook if meet

[excel_newbie86]

Hi all

I want to have macro check 6 character all excel files in Folder then copy range to master if meet
If left(filename,6) = "A12345" then copy sheet(A12345A).range(A10:I20) to workbook(master.xlsm).sheets(A12345)
If left(filename,6) = "B23456" then copy sheet(B23456B).range(A10:D15) to workbook(master.xlsm).sheets(B23456)
If left(filename,6) = "C34567" then copy sheet(C34567C).range(A10:E30) to workbook(master.xlsm).sheets(C34567)

Folder have over 500 excel files, some of them has character "A12345" or "B23456" or "C34567"
Thanks and please help me.

 

[excel_newbie86]

Someone help me to do this