Use ChDir and ChDrive together with thisworkbook.path (or
activeworkbook.path as appropriate).

Option Explicit

Sub testIt()
Dim SavedPathname As String

MsgBox Application.GetOpenFilename()
SavedPathname = CurDir

ChDir ThisWorkbook.Path
ChDrive ThisWorkbook.Path
MsgBox Application.GetOpenFilename()

ChDir SavedPathname
ChDrive SavedPathname
MsgBox Application.GetOpenFilename()
End Sub

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article ,
says...

Group,
Another novice question. When I open a file I use the following
code. The first use of my spreadsheet always begins in a folder other
than where the files are located. Once I navigate to the folder where
my files are located, Excel remembers the path. Then each subsequent
opening and Excel opens that folder. Is there a way to always open the
folder where my spreadsheet is located? Assume my files are located in
folder c:\MPI .




fn2 = Application.GetOpenFilename("Current MPI File,*.mpi", 1,
"Select NEW MPI File To Open", , False)


Tony


--
ajocius
------------------------------------------------------------------------
ajocius's Profile: http://www.excelforum.com/member.php...o&userid=17695
View this thread: http://www.excelforum.com/showthread...hreadid=470534