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

Steve,

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

Mike

"Steve" wrote:

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

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

On Mar 21, 2:26*pm, Mike H wrote:
Steve,

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

Mike



"Steve" wrote:
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- Hide quoted text -

- Show quoted text -