Save as PDF format from the selected sheet

[RichTom44]

Hello Everyone,
I need a VBA code to save the selected sheet from a workbook; the filename is in the specific cell location. Like, I have 10 sheets in a workbook, and if I select the 5th sheet to save as a PDF, the file name should be copied on the specified cell location.

 

[DanteAmor]

Change B3 by the specific cell location:

Sub SavePDF()
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=ThisWorkbook.Path & .Range("B3").Value & ".pdf", _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With
End Sub