Sub Macro1() Sheets("Sheet_1").Activate ActiveSheet.UsedRange.Select Sheets("Sheet_2").Activate ActiveSheet.UsedRange.Select ThisWorkbook.Sheets(Array("Sheet_1", "Sheet_2")).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Temp\MyPDF.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)