Get Open File Name
 

Hi,

I am trying to open a file from a folder but at the moment, not havin
much sucess. I have written the following VB code:

fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen < False Then
MsgBox "Open " & fileToOpen
End If

However, this only allows me to select Text Files and I am mainl
interested in .xls files. I have managed to get the folder box open bu
I cannot open any Excel files.

Have I missed something out?

If there is any one who can help me in my quest, that would be cool.
Thanks
Kiz

--
Message posted from http://www.ExcelForum.com

Get Open File Name
 

Try


fileToOpen = Application _
.GetOpenFilename("ExcelFiles (*.xls), *.xls")
If fileToOpen < False Then
MsgBox "Open " & fileToOpen
End I

--
Message posted from http://www.ExcelForum.com