Saving an invoice with an Invoice number and Customer Name

[mohammed_chand]

i have following code in my Module.
currently code saves invoices with invoice number. however i would like to add customer name with invoice number.
Invoice number is in D5 and customer name is in B11.
i would appreciate your help on this. how do i tweak my code to get customer name with invoice number.

Sub SaveInvoiceBothWaysAndClear()
Dim NewFN As Variant
' Create the PDF First
NewFN = "C:\Users\User\Desktop\invoice\" & Range("D5").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
' Next, Save the Excel File
ActiveSheet.Copy
NewFN = "C:\Users\User\Desktop\invoice\" & Range("D5").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Range("D5").Value = Range("D5").Value + 1
Range("A14:C23").ClearContents
Range("B11").ClearContents
Range("A11").ClearContents
ActiveWorkbook.Close SaveChanges:=True
End Sub

 

[Joe4]

i have just checked and found out that there is an "enter" new line in customer name.
example, bc contractors, london. i have it as
bc contractors
london.
so i think best option would be to use first 3 letters of customer name. do i have to amend any part of the code to use just first 3 letters of customer name?

Yes, that is an illegal character you cannot have in a file name.
Simply use the LEFT function on that part of the formula:

NewFN = "C:\Users\User\Desktop\invoice\" & Left(Range("B11").Value,3) & "_" & Range("D5").Value & ".xlsx"