Thread: [Solved] Choose file name Save As macro
View Single Post
 
Old 07-22-2014, 09:50 AM
gbaker gbaker is offline Windows 7 32bit Office 2010 32bit
Competent Performer
  
Join Date: May 2012
Posts: 111
gbaker is on a distinguished road
Default Save As Not Working
Like This, Wish I new more about writing code, I don't know where to put the line to make it work:
Code:
Dim varResult As Variant
'displays the save file dialog
varResult = Application.GetSaveAsFilename(FileFilter:= _
    "Excel Files (*.xlsx), *.xlsx, Macro Enabled Workbook" & _
    "(*.xlsm), *xlsm", Title:="Some Random Title", _
    InitialFileName:="\\fngn.com\us\Projects\ProgramOps\Exceptions Masters & Data\Aon Hewitt\Folder to Start")
'checks to make sure the user hasn't canceled the dialog
If varResult <> False Then
ThisWorkbook.SAVEAS = varResult
Reply With Quote