Link to home
Create AccountLog in
Avatar of cseink
cseink

asked on

Stop wdDialogFileSaveAs from defaulting to local drive

The code below works great but if the user doesn't have access to the shared location (10.0.0.1) it defaults to a local drive. Is there a way to stop this and spit out a message saying it can't access the location due to network security or connection.

Private Sub CommandButton1_Click()
With Dialogs(wdDialogFileSaveAs)
    .Name = "\\10.0.0.1\secured1\saves\" & ActiveDocument.Name
    .Show
End With

End Sub
ASKER CERTIFIED SOLUTION
Avatar of mvidas
mvidas
Flag of United States of America image

Link to home
membership
Create a free account to see this answer
Signing up is free and takes 30 seconds. No credit card required.
See answer
Avatar of cseink
cseink

ASKER

Pefect. Thanks a million
Glad to help!