Saving to pdf

[Coppa]

Hi

I have a workbook with many sheets, and I would like to save some of them into a single pdf. The script I have below only saves the first sheet. Could somebody please help me out.

Thanks

Sub SavePDF()
Sheets(Array("Income Statement", "Membership List", "Expenses breakdown", "Budget")). _
Select
ActiveSheet.PrintOut Copies:=1, Collate:=True, ActivePrinter:="Adobe PDF"
End Sub

 

[John_w]

Probably because you are using ActiveSheet, which is only 1 sheet. This works for me:

Sub Macro1()
    Sheets(Array("Sheet1", "Sheet3")).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="Adobe PDF"
End Sub