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

Please be advised that whenever you post code you will have to use the CODE tags as per the forum rules. Please edit your post, select the code and click on the # button.

The answer to your question:

Sub SAVEPDF()
    Range("A1:X75").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= Thisworkbook.path & "\Master Sheet.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

I am not sure there is such a thing as a PDF title. I think what you are seeing is the name of the PDF object assigned when saving

Ok, misunderstood your request

Try

Sub SAVEPDF()
    Range("A1:X75").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= Thisworkbook.path & "\" & Split(Thisworkbook.name,".") (0) & ".pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub