Explorador en VBA.

Sentí un día la necesidad de investigar si era posible obtener un objeto que mostrara el Navegador de windows para seleccionar una ruta de un fichero, para posteriormente incorporar esta ruta o 'path' en algún otro código de mis macros.
Encontré el objeto Shell.Application que referenciándolo a la instrucción de VBA CreateObject; y una vez generado este código, empleándo el método BrowseForFolder, abriría nuestra ventana de navegación.
El siguiente ejercicio de programación en VBA lo encontré tras varias horas de búsqueda por la red, pero por su utilidad me decidí a incorporarlo en el blog.

El código en cuestión que abre un cuadro diálogo para navegar y poder seleccionar una ruta es:

'generamos una macro con dos variables - Título y Directorio
Sub SeleccionarDirectorio()
'definimos las variables que emplearemos
        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
End Sub

Al ejecutar la macro 'SeleccionarDirectorio' nos aparecerá:

En el ejemplo he optado por un sencillo mensaje donde se muestra el resultado de la selección de la carpeta, pero obviamente podremos emplear esta dirección para cualquier otra cosa.