Save as with Default location
 

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

Save as with Default location
 

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

Save as with Default location
 

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 -