Help to check string of file name, if meet will copy valu to master workbook

[sbv1986]

Hi all

I have master workbook with sheets: (main, AAAAAA, BBBBBB, CCCCCC, DDDDDD)

Now I want to have macro check 6 character in left of all excel files in multi[le Folders like: 202006, 202005,202004, 202003
Case is 6 character in left = AAAAAA then copy data from sheet(AAAAAA1).range("A1: 20") to workbook("master.xlsx").sheets("AAAAAA")
casei s 6 character in left = BBBBBB then copy data from sheet(BBBBBB1).Range("B1:E20") to workbook("master.xlsx").sheets("BBBBBB")
Case is 6 character in left = CCCCCC then copy data from sheet(CCCCCC1).Range("A2:J783") to workbook("master.xlsx").sheets("CCCCCC")
Case is 6 character in left = DDDDDD then copy data from sheet(DDDDDD1).Range("B19:E56") to workbook("master.xlsx").sheets("DDDDDD")
Case else do nothing.

Thanks to read this thread./.