Guardar hoja excel en pdf en ruta indicada en celda

Tengo este código:

Path = Range("a1").Value & "\"

fn = Range("P26") & "_" & Range("C42") & "_" & Range("C46") & "_" & Format(Range("P25"), "dd-mmm-yyyy")

mydoc = Path & fn & ".pdf"

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        mydoc, Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True