.ExportAsFixedFormat Type:=xlTypePDF, _ FileName:=sPath & sName, _ Quality:=xlQualityStandard, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True