Macro to combine save selection as PDF COMBINED with using cell contents as file name not working

[amandabstewart]

I've tried numerous times to get a macro to save as PDF in a specific folder location combined with saving that PDF named as a cell's contents using cell J5. Just can't see what I'm doing wrong.

What does work (doesn't include cell J5 naming) is shown below. It saves the PDF as "mega" which is the name of the workbook...tis is the correct file location
Can anyone fix it to do both?

' SavePDF Macro

'

'
Range("A1:D32").Select
ChDir"C:\Users\abarker\Desktop\Orders & Inventory\ordered"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\abarker\Desktop\Orders &Inventory\ordered\MEGA.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,_

OpenAfterPublish:=True
End Sub


Sub SavePDF()

 

[BAlGaInTl]

Try this:

Sub SavePDF()
' SavePDF Macro
Dim sName As String
'

'
sName = Range("J5").Value & ".pdf" 'Sets your filename
Range("A1:D32").Select
ChDir "C:\Users\abarker\Desktop\Orders & Inventory\ordered"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\abarker\Desktop\Orders &Inventory\ordered\" & sName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

 

[amandabstewart]

I tried the above code but it flagged the section at "ActiveSheet…

any thoughts?

 

[amandabstewart]

FINALLY FINALLY FINALLY figured out the issue--the cell "J5" had, in part, a date that no matter what either converted to a non-useful # (as excel does),or, when formatted as a date, wouldn't allow the save to occur due to characters included (e.g. the "/' symbol). So, now it is working with a different text file name in J5