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

'----------------------------------------------------