Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim varWorkbookName As String
Dim sFileExtension As String

    Application.EnableEvents = False
    
    varWorkbookName = Application.GetSaveAsFilename(InitialFileName:="", _
    filefilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm)", _
    FilterIndex:=1)

        
    If varWorkbookName <> "False" Then
        sFileExtension = CreateObject("Scripting.FileSystemObject").GetExtensionName(varWorkbookName)
        varWorkbookName = Left(varWorkbookName, Len(varWorkbookName) - Len(sFileExtension)) & "xlsm"
        ActiveWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=52
    End If
    
    Application.EnableEvents = True


End Sub