Saves as dialog in Excel

macropod · #2 10-02-2014, 12:04 AM

InitialFileName Property applies to a file dialog box, not to a Save As dialog box.
Try something along the lines of:

Code:

Dim StrFold As String
If ActiveWorkbook.Path = "" Then
  StrFold = Application.DefaultFilePath
Else
  StrFold = ActiveWorkbook.Path
End If
ChDir "N:\BES-DATA\traffman\traffic\"
With Application.Dialogs(xlDialogSaveAs)
  If Not .Show = -1 Then
    MsgBox "User cancelled without saving."
  End If
End With
ChDir StrFold

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab at the bottom of this screen.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Power Point saves in GREYSCALE!	Bluebirdie	PowerPoint	2	03-14-2012 11:17 AM
Format Autoshape Dialog Box Crashes Excel	BjornP	Excel	0	03-01-2012 01:58 PM
OFFICE(Word,Excel..)-crash/close when DIALOG BOX launched of insert image,open file	buggingme	Office	1	05-30-2010 12:18 AM
Outlook Form that Saves Data to Excel	dcbrown	Outlook	0	12-29-2008 06:25 PM
Method to update saves to all copies	aultduell	Word	1	11-24-2006 12:50 PM