أخى الفاضل
جرب هذا التعديل
Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
Sheets(Array("عرض", "le3")).Copy
NewFN = "C:\aaa\Inv" & Range("E5").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextInvoice
End Sub