The code that you are using is for folders (directories) only.

Try the getopenfilename method:

Sub filetest()
Dim fileToOpen As Variant
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen < False Then MsgBox "Open " & fileToOpen
End Sub

--
HTHs Martin


" wrote:

Yes I want to find the file. I have used the dialog box but can you
specify a starting folder for it?