Try

Dim FName As Variant
FName = Application.GetOpenFilename(filefilter:="All files
(*.*),*.*")
If FName = False Then
MsgBox "you clicked cancel"
Else
MsgBox "You selected: " & FName
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



wrote in message
ups.com...
Hello...

I am trying to use some code by Chip Pearson to import text
files. It
works great, except the particular files that I must browse for
have NO
filename extension; therefore, they do not appear in the list
when
browsing for documents.

The current code is as follows (and one would think that it
would find
anything):

(filefilter:="Text Files(*.txt),*.txt,All Files (*.*),*.*")

Does anyone know how I can modify this to find files with NO
extension?

Any help would be greatly appreciated.

Thanks,
Jessi