Save as PDF from cell "a1"

[MESHACK]

'Save to PDF


    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "C:\Users\HP\Desktop\MC SIGN\[B][COLOR=#ff0000]324916-01 Invoice[/COLOR][/B].pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    
    
End Sub

This Macro works but always saves to:324916-01 Invoice. I would like it to save to whatever text is in cell "A1"
Any help would be greatly appreciative.
Thank you in advance.

 

[Snakehips]

MESHACK,
Try.........

"C:\Users\HP\Desktop\MC SIGN\" & Range("A1") & ".pdf"

Which should be fine provided that A1 does not contain any characters that are invalid within a filename.

Hope that helps.

 

[bbott]

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\HP\Desktop\MC SIGN\[B][COLOR=#ff0000]" & range("A1") & "[/COLOR][/B].pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

 

[MESHACK]

Gentlemen,
That worked great!!! Thank you so much!!!!
Meshack