Eduard Caballero respondió:
Prueba esto 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...
Obtener ruta carpeta getopenfilename vba excel