Sheets(\"Key Indicators\").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ArchivePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
Sub PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\PCNAME\Documents\Book1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub
Please try the above codes