Code to export excel to Pdf

[Chris1973]

Gooday everyone.

If this is a duplicate post do i apologize i do not see the post i posted earlier

Still me with my problem of exporting a excel sheet to pdf format.

I have tried numerous codes ( which strangely enough work on their own)

My problem is i need to save a excel workbook(xlsm enabled) to xlsx and pdf format .

I am currently using this code for the sake of saving to xlsx, and it works 100%

PLEASE NOTE THIS CODE WORK 100% NO PROBLEM HERE

Private Sub CommandButton1_Click()

Dim Path As String

Dim Filename1 As String

Path = "C:\Users\chrish\Documents\1.Wurth Master\3.Quotes and Brochures\Excel\"
Filename1 = Range("D8").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Path & Filename1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close


End Sub

I need a code to save above mentioned code and then to EXPORT PDF

pdf must be exported (saved) to

cell range : D4 AND D8 must be saved
Path: C:\Users\chrish\Documents\1.Wurth Master\3.Quotes and Brochures\Pdf

so in short
xlsx must be saved in
range:D8
PATH:"C:\Users\chrish\Documents\1.Wurth Master\3.Quotes and Brochures\Excel\"

and pdf must be saved to

cell range : D4 AND D8 must be saved
Path: C:\Users\chrish\Documents\1.Wurth Master\3.Quotes and Brochures\Pdf


Anyone that can help.

I had tremendous help over the weekend, unfortunately for one or other reason does nothing want to work

 

[Fluff]

You can find your threads like this

Thread closed as duplicate