Application VisualBasic Script

Sub def()
    Application.DefaultFilePath = "\\server3\users\mjones\files"
End Sub