Use

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

This is not working for a network folder

Use this then

Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long

Public Sub ChDirNet(szPath As String)
' Rob Bovey
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(szPath)
If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub


And this in your code

ChDirNet "\\ComputerName\YourFolder"



--
Regards Ron De Bruin
http://www.rondebruin.nl



"neta" wrote in message
...

Hi,

I am using the "chdir" statement in VBA - in the "before open" private
sub. the statement does not work - the default directory does not
change (stay as "my document").

In the help it is written that The ChDir statement changes the default
directory but not the default drive.

Any ideas ?

Thanks a lot !


--
neta
------------------------------------------------------------------------
neta's Profile: http://www.excelforum.com/member.php...fo&userid=7624
View this thread: http://www.excelforum.com/showthread...hreadid=552335