Saving file name to cell code not working, any advice ?

[JamesStag]

Hi i am looking to save quotes, and name them the clients address and date. Any advice on this code? cheers

Sub Save3()

Dim filename As String

Dim Path As String

Dim path1 As String

Dim path2 As String

Path = "C:\Users\James\Documents\Excel Test Folder\Quotes PDFs Test"
path1 = "C:\Users\James\Documents\Excel Test Folder\Invoice PDFs Test"
path2 = "C:\Users\James\Documents\Excel Test Folder\Quotes Invoices Spread Sheets"

filename = Range("C6").Text & ".pdf"

ActiveSheet.SaveAsFixedFormat Type:=xlTypePDF, filename:= _
Path + filename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

ActiveSheet.SaveAsFixedFormat Type:=xlTypePDF, filename:= _
path1 + filename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

ActiveSheet.SaveAsFixedFormat Type:=xlTypexlsx, filename:= _
path2 + filename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub

 

[Norie]

All your paths should end with a '\'.

 

[JamesStag]

Thanks for the reply, i added the \ and nothing has changed. Any other advice or information i can give ?

Thanks again.

 

[Norie]

Are any files being saved/created in the folders Quotes PDFs Test, Invoice PDFs Test or Quotes Invoices Spread Sheets?

Are you getting any errors?

Does C6 on the active sheet of the active workbook have a value that's a valid filename?

PS What happens if you change OpenAfterPublish:=False to OpenAfterPublish:=True?

 

[JamesStag]

Thanks for the replay,
yes files are being saved/created in the folders Quotes PDFs Test, Invoice PDFs Test or Quotes Invoices Spread Sheets and they are the correct formats. The only issue is they are not saving as (C6) just as book2.
No errors

 

[Norie]

What is the value in C6 of the active sheet when you run the code?

Where is the code located?

 

[JamesStag]

If this helps

https://ibb.co/hugkg8
https://ibb.co/ky5YZT

 

[Norie]

Does it make any difference if you include a worksheet reference?

filename = Sheets("Details").Range("C6").Text & ".pdf"

 

[JamesStag]

Unfortunately not

 

[Norie]

Have you checked what the value of the variable filename actually is?