Sub Demo() ActiveSheet.PrintOut ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Split(ActiveWorkbook.Name, ".")(0) End Sub