How to use a macro to save worksheet as pdf to current folder

Hi guys,

This is my first time in this forum. I run a macro that saves a sheet to my desktop as pdf. I want multiple users to have a copy of this excel document and be able to save as PDF to whatever folder they have the excel saved in. Not sure how to do that.

I included the macro below.

Thanks,

Lriver2

Sub SAVEPDF()
'
' SAVEPDF Macro
'

'
    ActiveWindow.SmallScroll Down:=-15
    Range("A1:X75").Select
    ChDir "C:\Users\Lriver2\Desktop"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Lriver2\Desktop\Master Sheet.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub