vba browse button set to current directory

[ll]

I am working with a form with browse buttons to load a file from a
certain directory; I would like for that directory to be the one that
holds the currently open excel/vba form. Currently, I am using curdir
and getting the 'default' storage location set up in Excel
(MyDocuments..).

'=============
Dim SaveDriveDir As String
SaveDriveDir = CurDir()
MsgBox (CurDir)
ChDir (SaveDriveDir)
NewFN = Application.GetOpenFilename(FileFilter:="Excel Files
(*.xls), *.xls", Title:="Please select a file")
'===============


Thanks for any help in this,

Louis

 

[Dan R.]

Louis,

CurDir = ThisWorkbook.Path
ChDir (CurDir)

 

[Ron de Bruin]

Try this

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName <> False Then
Workbooks.Open (FName)
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub