Skip to content

Instantly share code, notes, and snippets.

@bigarabuza

bigarabuza/objExcelApplication.bas

Created February 14, 2019 15:46
Show Gist options
  • Save bigarabuza/552c69298efc1cacee0e8c92164c0137 to your computer and use it in GitHub Desktop.
Save bigarabuza/552c69298efc1cacee0e8c92164c0137 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
objExcelApplication.bas
Option Explicit
Sub SaveExcelDialog()
'display standard Save As dialog box
Dim fileSaveName As Variant
fileSaveName = Application.GetSaveAsFilename( _
InitialFilename:="C:\Users\mu6212\", FileFilter:="Excel Files (*.xlsm), *.xlsm", _
Title:="Save File As")
'checks to make sure the user hasn't canceled the dialog
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName
End If
End sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment