Is there a way to modify the code below to force the dialog box to open to "Save As Type" Macro-Enabled Workbook (*.xlsm). Code is part of UserBox that tells user they must save file before continuing.
Private Sub SaveFile_Click()
Application.Dialogs(xlDialogSaveAs).Show (would like to force as xlsm)
frm.Hide
End Sub
Private Sub SaveFile_Click()
Application.Dialogs(xlDialogSaveAs).Show (would like to force as xlsm)
frm.Hide
End Sub