Gem som PDF, samme sted som fil og samme navn

Tænker:

ChDir ActiveWorkbook.Path
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "/" & Replace(ActiveWorkbook.Name, ".xlsm", "") _
        & ".pdf", Quality:=xlQualityMinimum _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Ja, der er selvfølgelig ingen grund til at replace .xlsm med blank, for så at tilføje .pdf bagefter (havde nogle variables imellem før). Denne er kortere, og lidt mindre dum!
Ser heller ingen grund til at ændre Directory, så den har jeg også fjernet.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "/" & Replace(ActiveWorkbook.Name, ".xlsm", ".pdf"), Quality:=xlQualityMinimum _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False