Save worksheets in current folder as .pdf

I have finally put together a working code and added it naming one of the files after a specified cell. Thanks again for the head start patel45. Here is the (sloppy) code;

Sub sendpdf01()
'
' sendpdf01 Macro save in current folder with a cell naming the file
'

Dim FileName As String

FileName = ThisWorkbook.Path & "\" & Range("h9").Text & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    
    
End Sub