Hello all,

First post on here and would greatly appreciate any help.

I've included a macro on an invoice to allow us to automatically save and update the invoice number. Everything with the macro seem to be working fine, the only issue is that the saved invoice's cells change to bright cyan and magenta as opposed to the white and gray that they are in the original (I'm thinking my boss won't enjoy this change). I will paste the VBA code below, please let me know if there is anything glaring that I'm missing.

Thanks again!

Emily

Sub NextInvoice()
Range("InvoiceNumber").Value = Range("InvoiceNumber").Value + 1
Range("ClearSpace").ClearContents
Range("CreditNumber").ClearContents
Range("ExpDate").ClearContents
Range("Name").ClearContents
Range("Address").ClearContents
Range("Address2").ClearContents
Range("Phone").ClearContents
End Sub

Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "S:\_PS.Private\Life Support Program\Finances\FY '12\Invoices\" & Range("Name").Value & ".xlsm"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
NextInvoice
End Sub