Next Invoice Number Save as .xlsm

[erware]

I have a Macro enable template with the below Macro that you wrote. It works but I would like for it to save the new file as a macro enable file "xlsm" instead of an excel .xlsx file. Is this possible?

Sub SaveAndNewInvoiceWithNewName()
Dim NewFN As Variant
' Copy Invoice to a New Workbook
ActiveSheet.Copy
NewFN = "C:\Users\Eddie\Documents\IDrive-Sync\Dropbox\LB Historical Society\Treasurer's Programs\Invoicing\Invoices\" & Range("F10") & Range("G10") & Range("H10") & Range("C22") & Range(" D17 ").Value
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextInvoice
Range("G10").Value = Range("G10").Value + 1
Range("C25:D42").ClearContents

End Sub

 

[erware]

I put all of the Data on the invoice sheet and created new drop down linked to the new location, hide the columns and it works as needed. I deleted the other 3 sheets.
I am glad I found your site, you have a wealth of useful information.
I signed up for your E-junkie Affiliate Programs and will be adding the HTML Button Code to 4 sites.
Thanks for all you do.

 

[erware]

I found a way to may it work. I put all of the data on the Invoice page and created new Data Validation criteria drop down lists and changed the VLOOKUP to the new location. I hide the columns to the sheet so it not look so cluttered.

I signed up for you Affiliate Program “Holy Marco Books” and will be adding the HTML Button Code to 5 website.

One minor problem is that the Invoice number is advancing by 2 not 1, (I can live with this but would rather it advanced by 1). This is the code:
Sub SaveAndNewInvoiceWithNewName()
Dim NewFN As Variant
' Copy Invoice to a New Workbook
ActiveSheet.Copy
NewFN = "C:\Users\Eddie\Documents\IDrive-Sync\Dropbox\LB Historical Society\Treasurer's Programs\Invoicing\Invoices\" & Range("F10") & Range("G10") & Range("H10") & Range("C22") & Range(" D17 ").Value
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
NextInvoice
Range("G10").Value = Range("G10").Value + 1
Range("C25:D42").ClearContents
End Sub

 

[Joe4]

I am guessing that "NextInvoice" is the code that is determing the next invoice number?
We would probably need to see the code behind that.

 

[erware]

Corrected the problem.
I removed Nextinvoice from the macro and now will it advance by 1 number. It was running the macro NextInvoice and "Range("G10").Value = Range("G10").Value + 1" which made it advance by 2.

Thanks