Open dialog with all files listed, then the selected file to open

this code opens with All Excel files shown (I Want to view all files), however it does open the selected file.

 Application.Dialogs(xlDialogOpen).Show

This code extracted from http://www.excelforum.com/excel-prog...all-files.html
Opens the dialog window as required, but doesn't open the selected file.

With Application.FileDialog(msoFileDialogOpen)
      .InitialFileName = ""
      With .Filters
         .Clear
         .Add "All files", "*.*", 1
      End With
      .FilterIndex = 1
      .Title = "Please Select a File"
      .ButtonName = "Open"
      .AllowMultiSelect = False
      .InitialView = msoFileDialogViewDetails
      .Show
end with

Please supply changes to either method to open with all files shown, and then enables the file to be opened.