Excel Default Saving as .htm Format

[blaiaa]

I've been running into an issue where after running a macro to generate an excel spreadsheet, when I click on the save icon in this newly generated excel workbook it gets saved as a .htm file, but when I do file->save as, it is appropriately saved in .xlsm format. I'm not entirely sure why there is a discrepancy between the two methods for saving the workbook. I would like to have it be able to save as an .xlsm file regardless of the way that the file is saved. I've tried writing in some vba code to save it as a .xlsm file after the code for the generation of the excel workbook, but it also defaults to .htm format regardless of setting the FileFormat to 52. I've also tried to set my default save format to be .xlsm, but that yields a .htm file when I hit the save icon as well. If it's important to note, this excel workbook is generated and stored into a directory on a network drive. Any help is appreciated!

 

[Worf]

Welcome to the Board

You could trap the save event:

' at ThisWorkbook module
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.EnableEvents = False
Application.DisplayAlerts = False
Me.SaveAs Me.FullName
MsgBox "Saved as " & Me.FullName
Application.EnableEvents = True
Application.DisplayAlerts = True
Cancel = True

End Sub