SaveAs dialog in word

[jrpfinch]

With Dialogs(wdDialogFileSaveAs)
    .Name = strNewFilename
    .Execute
    .Update
    .Show
End With

I would be very grateful if someone could tell me whether it is possible to change the directory the saveas dialog defaults to when it is displayed so I can adapt the code above

Thanks

[WorkHorse]

Just add the path to the Name.

With Dialogs(wdDialogFileSaveAs)
    .Name = "C:\Program Files\" & strNewFilename
    .Execute
    .Update
    .Show
End With