Sheets(\"Key Indicators\").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ArchivePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
With ActiveSheet .ExportAsFixedFormat Type:=xlTypePDF, Filename:="N:\JKDJKDJ", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With