Is there a possibility to give this command a directorsy he should start on
default
for example D:\Test then the user gets to see the files which are in there
first

Hi Philipp,

Adapting the code from my last response in your previous thread, try:

Sub Test2()
Dim fName As Variant
ChDrive "D\"
ChDir "D:\Test"
fName = Application.GetOpenFilename
Test3 fName

End Sub

Sub Test3(Filenme)
Workbooks.Open Filenme

End Sub


---
Regards,
Norman



"Philipp Oberleitner" wrote in message
...
Is there a possibility to give this command a directorsy he should start
on
default
for example D:\Test then the user gets to see the files which are in there
first

Option Explicit
Sub testme()

Dim myOtherFolder As String
Dim myFileName As Variant
Dim MyCurFolder As String
Dim wkbk As Workbook

myOtherFolder = "C:\temp"
MyCurFolder = CurDir

ChDrive myOtherFolder
ChDir myOtherFolder
myFileName = Application.GetOpenFilename
ChDrive MyCurFolder
ChDir MyCurFolder

If myFileName = False Then
Exit Sub
Else
Set wkbk = Workbooks.Open(Filename:=myFileName)
End If

End Sub

Philipp Oberleitner wrote:

Is there a possibility to give this command a directorsy he should start on
default
for example D:\Test then the user gets to see the files which are in there
first

--

Dave Peterson