vba_excel .exportar hojas a un nuevo libro

[DIANA_MM]

Hola, os comento mi consulta:

-Tengo un libro de Excel cuyo nombre no se.
-Este libro tiene las siguientes hojas:
-HP (siempre visible)
-Resumen (siempre visible)
-Cprod1 (visible si checkbox1 del userform =true)
-Cprod2 (visible si checkbox2 del userform =tue)
-Cprod3 (visible si checkbox3 del userform =true)

-Quiero exportar a un nuevo libro de Excel ,cuyo nombre no se, las hojas visibles, menos la hoja HP.

He probado entre otras cosas lo siguiente:

1-
Sheets(Array("RESUMEN", "PROD1", "PROD2", "PROD3")).Select
Sheets(Array("RESUMEN", "PROD1", "PROD2", "PROD3")).Copy
Cells.Select
Selection.Copy

Pero, da error porque puede que no tenga visible la hoja Prod1, o la Prod2 o la Prod3 (que de hecho no quiero exportar las no visibles).

2-

If Cprod1.value=true then
Sheets( "PROD1”)).Select
Sheets(“PROD1").Copy
Cells.Select
Selection.Copy
Else
If Cprod2.value=true then
Sheets("PROD2").Select
Sheets("PROD2 ").Copy
Cells.Select
Selection.Copy

Etc…

Pero me crea un nuevo libro para cada hoja.

¿alguien me da alguna idea de como lo podría solucionar?