Copy selected files sheets to the this workbook

Hi friends,
Following macro allows you to select which zipped files you want to unzip.

Please Login or Register  to view this content.

Following macro allows you copy sheets to the ThisWorkbook.
Following macro asks you to enter full path to workbooks. But this asking is not good idea.

Please Login or Register  to view this content.

So, I want second macro above, allows me to select which files sheets I want to copy like first macro doing.

Following code you maybe need.

Please Login or Register  to view this content.

Best regards.