Sophie,

As I said last week, I have tested your code with the same directories, and
it works for me.

What is the directory when you start, and what error do you get?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Sophie" wrote in message
...
Hello Everyone?

Raised this last week, but wasn't as precise as this.
Open works below, but not SaveAs, does anyone else get
the same result or know why?

TIA

Sxx


Sub FileOpenDirectory()
ChDrive "C"
ChDir "C:\1"
Application.Dialogs(xlDialogOpen).Show

End Sub
Sub FileSaveAsDirectory()

ChDrive "C"
ChDir "C:\1"
Application.Dialogs(xlDialogSaveAs).Show

End Sub