How to save 2 worksheets as one workbook?

[peter_z]

Hey Guys

I know Ron has an article on how to save a worksheet as a new workbook http://www.rondebruin.nl/copy6.htm.

Just wondering what the code would be to save two worksheets in the same workbook?

Cheers!

 

[peter_z]

I've had some progression with this but its not working:

'Copy the sheet to a new workbook
strWorksheet = Array("Receivables", "OUTPUT")
Worksheets(strWorksheet).Copy
Set Destwb = ActiveWorkbook

Application.DisplayAlerts = False

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum

Workbooks(TempFileName & FileExtStr).Close True

Any ideas where it could be going wrong?

 

[Warship]

Maybe something like:

Sub Save2sheets1book()
    Dim x
    Dim originalBook As String
    originalBook = ThisWorkbook.Name
    
    Workbooks.Add
    
    Workbooks(originalBook).Sheets("SheetToCopy1").Copy Before:=ActiveWorkbook.Sheets(1)
    Workbooks(originalBook).Sheets("SheetToCopy2").Copy Before:=ActiveWorkbook.Sheets(2)
    
    Application.DisplayAlerts = False
    
    For x = ActiveWorkbook.Sheets.Count To 3 Step -1
        ActiveWorkbook.Sheets(x).Delete
    Next x
    
    Application.DisplayAlerts = True
    
    ActiveWorkbook.SaveAs Filename:="New2sheetBook"
    
End Sub

 

[VoG]

Maybe this?

Sheets(Array("Receivables", "OUTPUT")).Copy
ActiveWorkbook.Close savechanges:=True

 

[peter_z]

Cool cheers for your help guys works perfect.