how to copy worksheets to new file

[uav2]

from an active workbook, I would like to open a new file "testfile" and copy two work sheets ("result1", "result2") into the new file and then close it and continue working in the active workbook. seems simple but i keep getting errors. Thanks for any help

 

[mvptomlinson]

Hi uav, try:

Sub makeWB()
Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = ActiveWorkbook
Set wb2 = Workbooks.Add

With wb2
    wb1.Sheets(Array("result1", "result2")).Copy Before:=.Sheets(1)
    .SaveAs Filename:="testfile.xlsx", FileFormat:=xlOpenXMLWorkbook
End With
End Sub

 

[uav2]

mvp,
thanks- works great

how do i close the new file?