Save as with Default location

[Steve]

Hi. I have the following code, but it doesn't seem to work. I get
the dialog box for Save As, but it is not bringing in the default
directory I have specified. Any idea what I am doing wrong? Thanks!

Sub test()

sStr = "C:\Documents and Settings\Files\workFiles\"
ChDrive sStr
ChDir sStr
On Error Resume Next
Application.Dialogs(xlDialogSaveAs).Show

End Sub

 

[Mike H]

Steve,

Never tested it by creating your path on my machine but with a valid path on
my machine works fine

Mike

 

[Steve]

On my machine it always defaults to the folder that was last used in a
Save.