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

 

[Joe4]

Change this argument in your code:

FileFormat:=xlOpenXMLWorkbook

to this:

FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[erware]

Change this argument in your code:

FileFormat:=xlOpenXMLWorkbook

to this:

FileFormat:=xlOpenXMLWorkbookMacroEnabled

Thanks

 

[Joe4]

You are welcome

 

[erware]

My invoice template has 4 drop down tables but they are not saved when running the macro. Is there a way to include the drop down tables in the saved file?

 

[Joe4]

What exactly are these drop-down tables?
How are they created?
Are they linked to anything?

 

[erware]

They were created with the Data Validation function. I have 3 of these, Select Customer, Select Invoice Status and Item Code. See attached screen shot.

 

[erware]

I believe I know why they are not included with the save file, the Data Validation criteria is located on 3 other sheets, Products, Clients, and Terms, and they are not included with the new file.

 

[Joe4]

Yes, you are only copying over the one sheet.
If you want them, you may need to copy over the whole file instead (or at least the other sheets also).

 

[erware]

I am not into much coding, I can record macro and find help like yours on YouTube. How can I modify the above code to include at least the "Terms" sheet?
I am glad I found your site, you have a wealth of useful information.