Hi All,
Below is my code to get the workbook selected by the user. For some or other
reason this dummy
can't get the code to open the selected file. I would like to substitute the
msgbox with the code to
open the file. Any advice would be appreciated.
Thanks in advance



Sub GetFileExample()
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename _
(FileFilter:="Excel Files (*.XLS), *.XLS", _
Title:="Select File To Be Opened")
If fNameAndPath = False Then _
Exit Sub
MsgBox fNameAndPath

End Sub

--
HJN

On Jan 13, 12:13*pm, Hennie Neuhoff
wrote:
Hi All,
Below is my code to get the workbook selected by the user. For some or other
reason this dummy * * *
can't get the code to open the selected file. I would like to substitute the
msgbox with the code to
open the file. Any advice would be appreciated.
Thanks in advance * * *

Sub GetFileExample() * *
Dim fNameAndPath As Variant * *
fNameAndPath = Application.GetOpenFilename _ * *
(FileFilter:="Excel Files (*.XLS), *.XLS", _ *
Title:="Select File To Be Opened")
If fNameAndPath = False Then _
Exit Sub
MsgBox fNameAndPath

End Sub

--
HJN

Replace MsgBox statement with Workbooks.Open (fNameAndPath)