Save As, PDF, Filename, File location

[Krosis]

I have had a look around and have founds bit but I was unable to put anything together. I dont know VBA/userforms well enough to figure it out myself so once again, iv come for expert advice!
Apologies but I dont have any code to post as I wasnt even sure where to start.

I need help with figuring out how to code a MacroButton located on my worksheet that the client will select. Im wanting to MacroButton to bring up the Save As option, Set the file location, Filename (based on 3 Cell values) and set the document to save as a PDF format so all the client has to do is confirm the details and hit save.

What I mean by the file name being based on 3 cell values is... I need it to display as "Name - ID - Outcome" but based on... Cell B4 = "Name", Cell H4 = "ID" and Cell A9 = "Outcome".

Hopefully all that makes sense!.. If not give me a shout. Hopefully someone can help. Thanks!

 

[earthworm]

Try this

Sub SavePDF()

' Save Calculation as PDF

Dim x As String
x = Range("C5").Value  ' Change This cell to Cell Loction for which you need file to be saved as


' Change location as per your requirement :C:\Users\Test\Desktop\

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Test\Desktop\" & x & ".pdf", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub