Open workbook selected form dialog

[Hennie Neuhoff]

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

 

[Trevose F]

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

Replace MsgBox statement with Workbooks.Open (fNameAndPath)