Ventana de Navegación Excel

Buen día.

Necesito de su colaboración, para obtener el código para que al oprimir un botó en un formulario, abra una ventana de navegación que me permita seleccionar un archivo de excel de dicha ventana de navegación. Encontré en internet el siguiente código:

Dim Titulo, Directorio As String
Titulo = "Selecciona la ruta de tu carpeta"
On Error Resume Next
'evitaría un error en caso de no seleccionar nada o pulsar ESC
With CreateObject("shell.application")
Directorio = .browseforfolder(0, Titulo, 0).Items.Item.Path
End With: On Error GoTo 0
'la siguiente instruccíon IF ejecuta una acción a modo de ejemplo
If Directorio = "" Then
MsgBox "No has marcado ningún directorio.", , "Operación no válida"
Else
MsgBox "Ha seleccionado la siguiente ruta " & Directorio
End If

Este código funciona, pero al abrir la ventana de navegación solo me permite seleccionar las carpetas mas no abrilas para ver los archivos que hay en estas y poder seleccionar uno que esté en formato excel. Pareciera más una ventana para guardar archivos y no para abrir archivos.

Agradezco la ayuda que me puedan prestar,

Cordialmente,

Fabio Urrea Ballesteros.