copy selected cells and make a pdf

[shahzeb123]

Hi ,

Thanks guys for your previous help.

Rightnow, I am trying to save specific selected cells as pdf with set path and format.

I am trying to use below code it shows error can you guys help me out please.

    Dim Path As String
    Path = "C:\Users\shakeelshahzeb\Desktop\Discounting\"
  
    'Gets the name of the currently visible worksheet
    Dim Filename As String
    Filename = Range("D5") & "-" & Format(Date, "dd-mmm-yy")
  
    Range("r6:y34").ExportAsFixedFormat Type:=xlTypePDF,

   Range("r6:y34").SaveAs Filename:=Path & Filename & ".pdf"
    
    'Closes the newly created workbook so you are still looking at the original workbook
    ActiveWorkbook.Close

 

[KOKOSEK]

Sub shahzeb123PDFSaving()
Dim Path As String
Dim Filename As String
With ActiveSheet
    Path = "C:\Users\shakeelshahzeb\Desktop\Discounting\"
    Filename = Path & .Range("D5") & "-" & Format(Date, "dd-mmm-yy")
    .Range("R6:Y34").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
ActiveWorkbook.Close
End Sub