---

MS Excel 2003: Create a File SaveAs macro

This Excel tutorial explains how to write a macro to perform the "Save As" function that can be linked to a button in Excel 2003 and older versions (with step-by-step instructions).

Question: In Microsoft Excel 2003/XP/2000/97, I'd like to create a "Save As" macro that I can assign to a button. This macro should let me save my Excel spreadsheet while allowing me to select the file name.

How can I do this?

Answer: The following macro will perform a "File Save As" and then display a message box stating where the file was saved to.

Macro Code

The macro code looks like this:

Sub mcrSave()

   'Retrieve file name to use for Save
   fileSaveName = Application.GetSaveAsFilename( _
   fileFilter:="Excel Files (*.xls), *.xls")

   'If user specified file name, perform Save and display msgbox
   If fileSaveName <> False Then
      ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal

      MsgBox "Save as " & fileSaveName
   End If

End Sub