top copy multiple sheets to new book

[tourless]

Hi Folks,

Like the title says, I'm trying to take three sheets from the active workbook and copy them to a new workbook, however I don't think it's as easy as

ThisWorkbook.Sheets(wsRequired1, wsRequired2, wsRequired3).Copy

. Apparently that's too many arguments. I was hoping it could be done without first having to create the new workbook separately but I'm not sure if that's possible. What are my options here?

thanks.

 

[Fluff]

Try

ThisWorkbook.Sheets(Array(wsRequired1, wsRequired2, wsRequired3)).Copy

 

[tourless]

odd that it doesn't work with worksheet code names but non-the-less...

ThisWorkbook.Sheets(Array("Required1", "Required2", "Required3")).Copy

works perfectly.

Thanks!

 

[Fluff]

Glad to help & thanks for the feedback.

It doesn't work with the code name, because Sheets(...) requires a sheet name.
But you can do it like

Sheets(Array(Sheet9.name, Sheet8.name)).Copy