Why do you loop through the worksheets twice?

You don't need to select, this will slow the code

Just copy the sheets to a new workbook