Copy specific sheet to new file (VBA)

Hello, everyone
I want to copy specific sheet to new file detail as below.
1. loop file in folder by condition file name excel start with 10 and extension = .xlsx
2. loop copy sheet Purchase,AP to new file (1file)
remark same format input
3. save file filename by refer filename input (left 4 name from filename)
Example input = 1021_ee.xlsx ---> output = 1021_output.xlsx

remark : my excel have large size. I don't want to open becuase it slow.
Please guide me for solve it. (VBA)

Thank you.

Hello @fairyme.

Please Login or Register  to view this content.

Good luck.