Hi David,
how about this:
Dim oDlg As Dialog
Set oDlg = Dialogs(wdDialogFileSaveAs)
oDlg.Name = "c:\test\"
oDlg.Show

Signature
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"
David C - 21 Mar 2006 10:49 GMT
Thanks - I will try it now.
> Hi David,
>
[quoted text clipped - 4 lines]
> oDlg.Name = "c:\test\"
> oDlg.Show
David C - 21 Mar 2006 11:21 GMT
Works a treat, thanks
I used oDlg.Name = "c:\test\" & filename to offer a default name too.
Very grateful,
David C
> Hi David,
>
[quoted text clipped - 4 lines]
> oDlg.Name = "c:\test\"
> oDlg.Show