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

 

[JamesStag]

OK i have gone another direction that is working some what, onli issue so far is the third save is stuck in PDF not xlsm. ANy advice ?

Sub save()

Sheets("Quote").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
filename:="C:\Users\James\Documents\Excel Test Folder\Quotes PDFs Test\_" & _
Worksheets("Details").Range("C6").Value & ".pdf", _
OpenAfterPublish:=False

Sheets("Invoice").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
filename:="C:\Users\James\Documents\Excel Test Folder\Invoice PDFs Test\_" & _
Worksheets("Details").Range("C6").Value & ".pdf", _
OpenAfterPublish:=False

Sheets("Details").Select
ActiveSheet.ExportAsFixedFormat Type:=xlOpenXMLWorkbookMacroEnabled, _
filename:="C:\Users\James\Documents\Excel Test Folder\Quotes Invoices Spread Sheets\_" & _
Worksheets("Details").Range("C6").Value & ".xlsm", _
OpenAfterPublish:=False




Worksheets("Details").Select
Range("C4").Select
ActiveCell.Value = ActiveCell.Value + 1
End Sub