Create_PDF

FE_Name = “Example”
Sheets(“Sheet2”).Select
Range(“A1:I47”).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & “\” & FE_Name & “.pdf”, Quality _
:=PDFQuality, IncludeDocProperties:=True, IgnorePrintAreas:=False _
, OpenAfterPublish:=True

Datanology