Copy multiple sheets to a new workbook and then save

[Davg]

Hi,

I'd like to move several sheets to a new workbook and then save the new file. This is what I have so far:

Sheets(2).Select
For j = 2 To ThisWorkbook.Sheets.Count
Sheets(j).Select Replace:=False
Next j

***Open new workbook and move active sheets***

ActiveWorkbook.SaveAs Filename:="C:\Users\firstname.surname\Documents\Book2.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close



Thanks for any help!

 

[Andrew Poulsom]

I think you just need to add:

ActiveWindow.SelectedSheets.Copy

The new workbook will become the ActiveWorkbook.

 

[Davg]

Amazing! Thanks a lot!