Setting a Default File Location
Sub def() Application.DefaultFilePath = "\\server3\users\mjones\files" End Sub