HOW TO: Open an Excel File with an Open Dialog box -Excel VBA
Real Simple stuff....Dialog File Picker throwing in an Scripting.FileSystemObject for good measure.
'------------------------------------------------------------------
Sub OPEN_SOME_STUFF()
Dim FSO As Object
Dim FD As Object
Set FSO = CreateObject("scripting.filesystemobject")
Set FD = Application.FileDialog(msoFileDialogFilePicker)
If FD.Show = -1 Then
Filename = FD.SelectedItems(1)
Filename = FSO.getfile(Filename)
Workbooks.Open (Filename)
End If
End Sub
'----------------------------------------------------