Save as with Default location

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Steve - 21 Mar 2008 21:07 GMT

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

Reply to this Message

Mike H - 21 Mar 2008 21:26 GMT

Steve,

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

Mike

> 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
[quoted text clipped - 9 lines]
>
> End Sub

Reply to this Message

Steve - 21 Mar 2008 21:43 GMT

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

> Steve,
>
[quoted text clipped - 18 lines]
>
> - Show quoted text -

Reply to this Message