Save As VBA for MacroEnabledWorkbook

[kamalm]

Hi, I'm going to have a macro to save as in MacroEnabledWorkbook format. Here is my code

Sub trysave()


Dim kamal As Variant
kamal = Application.GetSaveAsFilename


    If kamal <> False Then
        ActiveWorkbook.SaveAs Filename:=kamal, FileFormat:=52
        
    End If


End Sub

If I using this code, the SaveAs dialog box will appear but the format only All Files. How can I fix this? Btw my excel format before using this macro is in .txt format.

 

[Yongle]

is this what you want?

Sub trysave()
    Dim kamal As Variant
    kamal = Application.GetSaveAsFilename(fileFilter:="Macro Enabled (*.xlsm), *.xlsm")
    If kamal <> False Then
            ActiveWorkbook.SaveAs filename:=kamal, FileFormat:=52
    End If
End Sub

 

[kamalm]

is this what you want?

Sub trysave()
    Dim kamal As Variant
    kamal = Application.GetSaveAsFilename(fileFilter:="Macro Enabled (*.xlsm), *.xlsm")
    If kamal <> False Then
            ActiveWorkbook.SaveAs filename:=kamal, FileFormat:=52
    End If
End Sub

Oh my goodness, God bless you. It is working very fine, your code is working. Thank you so much, mate!

 

[Yongle]

thanks for the feedback