View Single Post
 
Old 10-02-2014, 12:04 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote