ExcelBanter - Default file location

I used to have this problem if I opened excel when I wasn't mapped to my network
drive.

I created a file in my XLStart folder that tried to change that setting each
time I opened excel.

Option Explicit
Sub auto_open()

'Dim FSO As Scripting.FileSystemObject
Dim FSO As Object

Const myDefaultFolder As String = "X:\my folder\myfolder2l"

'Set FSO = New Scripting.FileSystemObject
Set FSO = CreateObject("scripting.filesystemobject")

With Application
If FSO.FolderExists(folderspec:=myDefaultFolder) Then
.DefaultFilePath = myDefaultFolder
ChDrive myDefaultFolder
ChDir myDefaultFolder
Else
MsgBox "DefaultFilePath not reset, still: " & .DefaultFilePath
End If
End With
ThisWorkbook.Close savechanges:=False

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

=======
I would guess that if you don't have the authorization to write to the windows
registry that this setting may not be kept for you. You may want to test to see
if other changes are kept, too.

If they're not, I'd ask the IT folks why it wasn't working.

Marvin wrote:

I change the default file location in tools/options, but it always reverts
back to the original location.

Any thoughts or suggestions would be welcome

--

Dave Peterson