ExportasFixedFormat not following path

[Claire Jackson]

I've got the following code but when the PDF is saved it's not saving to the correct folder and its using "SaveLocationFilename!" as the file name?

Sub Save_As_PDF()

Dim SaveLocation As Range
Dim Filename1 As Range

Set SaveLocation = Workbooks("Test Form with CRM Data.xlsm").Worksheets("Sheet1").Range("$L$13")
Set Filename1 = Workbooks("Test Form with CRM Data.xlsm").Worksheets("Sheet1").Range("$L$6")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="SaveLocation" & "Filename1", OpenAfterPublish:=True

MsgBox "File Saved to" & " " & Filename1


End Sub

 

[Fluff]

You need to remove the quotes from your variables, otherwise they are strings

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveLocation & Filename1, OpenAfterPublish:=True

 

[Claire Jackson]

Thanks but now I get a run time error '2147024773 (8007007b)': Document not saved?

It's pulling from here with L13 as the path and L6 as the filename?

 

[Fluff]

Is L6 a date or text?

 

[Claire Jackson]

its a date but I want it to use it as the file name? Its coming from the formula =now()

I did print.debut and it's stopping at Type:=xlTypePDF

 

[Fluff]

Ok, how about

Sub Save_As_PDF()

Dim SaveLocation As String
Dim Filename1 As String

With Workbooks("Test Form with CRM Data.xlsm").WorkSheets("Sheet1")
   SaveLocation = .Range("$L$13").Value
   Filename1 = .Range("$L$6").Text
End With

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveLocation & "\" & Filename1, OpenAfterPublish:=True

MsgBox "File Saved to" & " " & SaveLocation & "\" & Filename1


End Sub

 

[Claire Jackson]

OMG thank you so much xxx

 

[Fluff]

You're welcome & thanks for the feedback.