Luis_P respondió:
Desde el editor de vbasic (alt+f11), inserta un modulo (NO modulo de clase, solo un modulo), alli pegas esto: Sub abrir() Dim midir As String ChDir "c:\" midir = InputBox("Path de archivos", "Abrir Libros", "c:\prueba\") If Len(Trim(midir)) = 0 Then...