save PDF with two cells as reference

[PEAKCAB]

Morning,

Please could someone help me on the following problem? I am trying to save the pdf with two cells as the file name - F15 & A18 but i dont seem to be getting anywhere and i am a bit new to all this! this is what i am currently running and it works well but just missing the cell A18!

Thanks in advance

Sub SaveorderwithNewname()

Dim NewFN As Variant
PostToPurchaseOrder
'MAKEPDF Macro'
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:="Y:\Dropbox\Accounts\Accounts\PURCHASING\PURCHASE ORDERS\PURCHASE ORDERS PDF\PC00" & Range("F15")
'Copy Order to a new workbook
ActiveSheet.Copy
NewFN = "Y:\Dropbox\Accounts\Accounts\PURCHASING\PURCHASE ORDERS\PURCHASE ORDERS PDF\Excel Version\PC00" & Range("F15").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Nextorder
End Sub

 

[acerlaptop]

I don't know if this is what you want but try this out:

Sub SaveorderwithNewname()

 Dim NewFN As Variant
'MAKEPDF Macro'
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:="H:\TEST\New folder\" & Range("F15").Value & ".pdf" ' Change Location, don't forget the "\" at the end of location
'Copy Order to a new workbook
ActiveSheet.Copy
NewFN = "H:\TEST\New folder\" & Range("F15").Value & ".xlsx" ' Change Location, don't forget the "\" at the end of location
ActiveWorkbook.SaveAs Filename:=NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
 End Sub

 

[acerlaptop]

I don't know if this is what you want but try this out:

Sub SaveorderwithNewname()

Dim NewFN As Variant
'MAKEPDF Macro'
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:="H:\TEST\New folder\" & Range("F15").Value & Range("A18").Value & ".pdf" ' Change Location, don't forget the "\" at the end of location
'Copy Order to a new workbook
NewFN = "H:\TEST\New folder\" & Range("F15").Value & Range("A18").Value & ".xlsx" ' Change Location, don't forget the "\" at the end of location
ActiveWorkbook.SaveAs Filename:=NewFN, FileFormat:=xlOpenXMLWorkbook

End Sub

 

[PEAKCAB]

Brilliant! Thanks so much

Rich