Excel VBA - Refer to cell for saves as file path

[Randy11]

Code below is used to generate a PDF file from a workbook. Would like to be able to alter the code so the save file path can be in cell A12 on Sheet("Setup"). This is current hard coded into the code as Filename:="C:\Temp_Test\" ....
Ideas appreciated

Sub Export_PDF_File()
'
' Export_PDF_File Macro
'

Dim dtDelay As Date
Call Calc_Auto
dtDelay = Now

Dim D
D = Format(Range("laDate").Value, "mmm-dd-yyyy")

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Temp_Test\" & Sheets("SetUp").Range("A14").Value & D & ".pdf" _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=1, To:=28, OpenAfterPublish:=False

If Now < (dtDelay + TimeSerial(0, 0, 5)) Then
Application.Wait dtDelay + TimeSerial(0, 0, 5)
End If

End Sub

 

[SkipVought]

hi,

dim sPath as string

sPath = Sheets("YourSheetName").Cells(WhatRow, WhatCol).Value

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[PHV]

Like this ?
Filename:=Sheets("SetUp").Range("A12").Value & Sheets("SetUp").Range("A14").Value & D & ".pdf"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

Filename = Sheets("SetUp").Range("A12").Value & Sheets("SetUp").Range("A14").Value & D & ".pdf"

Are you getting the right stuff in Filename?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[Randy11]

Have tried all 3 methods suggested, no success.

Starts Publishing & runs into Run Time Error 1004 Document not saved....

Ideas?

 

[SkipVought]

WHAT do you see in Filename???

Do a Debug.Print!!!

Is it what you expect?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[Randy11]

SPath method worked well. Missed an error made when altering code. Thanks Skip, much appreciated. PH also thanks for your input.