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.