Avoid adding ".XLSM" to file name

[kelly mort]

I am using this macro to save my workbook. The only issue I am having here is that; it adds “.xlsm” to the name.
How do I get rid of that?

Sub SaveAs()
    Dim FileSaveAs As String
    FileSaveAs = _
    Application.GetSaveAsFilename(FileFilter:="Exel Files(*.xlsm,*.xlsm", Title:="Select Name For File")
    
    If FileSaveAs <> "False" Then ActiveWorkbook.SaveAs FileName:=FileSaveAs, _
    Password:="", writerespassword:="", ReadOnlyRecommended:=False
End Sub

 

[Domenic]

The SaveAs method also takes in an argument for which you can specify the file format. So, for example, to specify the .xlsx file format, try...

ActiveWorkbook.SaveAs Filename:=FileSaveAs, FileFormat:=xlOpenXMLWorkbook

Although, you'll probably need to set the DisplayAlerts property to False before saving, and then back to True afterwards...

    If FileSaveAs <> "False" Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=FileSaveAs, FileFormat:=xlOpenXMLWorkbook, _
            Password:="", writerespassword:="", ReadOnlyRecommended:=False
        Application.DisplayAlerts = True
    End If

Hope this helps!

 

[Domenic]

By the way, it looks like you've omitted a closing bracket...

[COLOR=#333333]FileFilter:="Exel Files (*.xlsm[/COLOR][COLOR=#ff0000])[/COLOR][COLOR=#333333], *.xlsm"[/COLOR]

 

[kelly mort]

By the way, it looks like you've omitted a closing bracket...

[COLOR=#333333]FileFilter:="Exel Files (*.xlsm[/COLOR][COLOR=#ff0000])[/COLOR][COLOR=#333333], *.xlsm"[/COLOR]

Problem solved


How do I get the default location to point to the current location of the workbook I am saving?

Regards
Kelly

 

[shg]

Before GetSaveAsFilename,

chdrive activeworkbook.path
chdir activeworkbook.path

 

[kelly mort]

Before GetSaveAsFilename,

chdrive activeworkbook.path
chdir activeworkbook.path

Okay cool.

This makes me hungry for more knowledge and wisdom.
Lol