VBA code for file save as in Excel 2013

[ariel20029]

Hi,
I have some code that needs to be updated but I'm not sure how to change. I am trying to save as into Excel 2013 excel workbook. This is the code I have:


FileSaveName = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, FileFilter:="Excel 2003 (*.xls), *.xls")


If FileSaveName <> False Then

ActiveWorkbook.SaveAs FileSaveName, FileFormat:=56 'xlExcel8 (97-2003 format xls)


Can you please help me?
thanks,
Sharon

 

[MARK858]

If you mean you using 2013 and want to save with the macro still in the workbook then try...

Sub ariel()
    Dim FileSaveName As Variant

    FileSaveName = Application.GetSaveAsFilename(FileFilter:= _
                                                 "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", InitialFileName:=ActiveWorkbook.Name)
    
    If FileSaveName <> False Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=FileSaveName, FileFormat:=52
        Application.DisplayAlerts = True
        Exit Sub
    End If

End Sub