Application.GetOpenFilename

[Greg]

How do I get this code to look in a certain directory

Application.GetOpenFilename

Directory name

ward5

Thanksin advance

Greg

 

[Dave Peterson]

One way for mapped drives (assigned to letters):

Option Explicit
Sub testme()

Dim myFolder As String
Dim myFileName As Variant
Dim ExistingFolder As String

myFolder = "C:\my documents\excel\test"

ExistingFolder = CurDir

ChDrive myFolder
ChDir myFolder

myFileName = Application.GetOpenFilename(filefilter:="Excel Files, *.xls")

ChDrive ExistingFolder
ChDir ExistingFolder

If myFileName = False Then
'do nothing
Else
MsgBox myFileName
'and the rest of your code
End If

End Sub

 

[Greg]

Thanks once again

It is exactly what i want

Greg

 

[Tim Williams]

Dim s
ChDir "C:\Folder\folder2\folder you want"
s = Application.GetOpenFilename

tim