trying to save excel sheets to pdf

[daves37120]

Hi folks,

I have been working on a macro to save certain tabs in a workbook as pdf in a folder. So far it will select the tabs and create a pdf file, but for the life of me, I cannot determine how to get it to save to the folder. The pdf is named correctly when exported, but is not saved. Several macro variants have been tried and all are removed from the macro with the hope someone can show me the correct way to add it. The path is on a "Control" tab (all inputs are here). Any help would be greatly appreciated.

Sub SavePDF_2()
Dim Path, FileName1 As String
Path = Sheets("Control").Range("H13")
FileName1 = Sheets("Control").Range("H13")

ThisWorkbook.Sheets(Array("Management Discussion", "Operating Summary", "Subscription ARR", _
"Income Statement", "BS & Cash Flow", "Working Capital", "SG&A & FTE's")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Path & FileName1 & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub

 

[Fluff]

What exactly is in H13 & why are you using it for both the path & filename?

 

[daves37120]

Good catch. It should be H16 and the path is: Path = Sheets("Control").Range("H16") 'C:\Dvinci Energy Inc\Test

 

[Fluff]

Is Test a folder or part of the file name?

 

[daves37120]

Test is a folder

 

[Fluff]

In that case you need to use

Path & "\" & FileName1 & ".pdf"

 

[daves37120]

That fixed it! Thanks for the help.

 

[Fluff]

You're welcome & thanks for the feedback.