Picked up the sheet names in the VBE and then used:

Sheets(Array("...", "...", "...", ...)).Copy
to copy to a new workbook. Then copied the code module.

Regards, TMS