Macro to print to PDF with cell values as name (Completed) but need a save as option added

[Aussie5380]

Hi there,

I have a macro already that prints to PDF and asks for a save location, however i wanted to add another macro ii made into it so it names the files of cells in the sheet. The codes i have so far are:

Macro to print and ask for save location:

Sub allow_user_to_select_save_location()
    Dim FileSaveName As String
    Dim fName       As String
ActiveWorkbook.Save
    fName = "Name Here"
    FileSaveName = Application.GetSaveAsFilename(InitialFileName:=fName, filefilter:="Excel Files(*.xlsm),*.xlsm", _
                   Title:="Please Select Location To Save File")
    ActiveWorkbook.SaveAs FileName:=FileSaveName, FileFormat:=52
End Sub

Macro to print to PDF with cell names:

Sub PTPDF2()
Dim pdfName As String
pdfName = Sheets("Leave Loading").Range("F13") & ", " & Sheets("Leave Loading").Range("F12") & "- " & Sheets("Leave Loading").Range("F14") & "- " & "Leave Loading" & ".pdf"
Application.ScreenUpdating = False
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=pdfName, OpenAfterPublish:=True
Application.ScreenUpdating = True
End SuB

Is there a way i can combine these together?

Thank you in advance

 

[Aussie5380]

sorry let me clarify, the top macro lets me save the workbook to a location, but i would like to print to PDF and have it named from the range of cells in the second VBA code, but also ask me where to save.... if that makes sense