Open workbook selected form dialog
 

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

Open workbook selected form dialog
 

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)