Luis Mondelo respondió:
Te mando la solución, ejecuta esta macro y todo listo! Sub guardar() 'Por Luismondelo On Error Resume Next mio = ActiveWorkbook.Name Set navegador = CreateObject("shell.application") carpeta = navegador.browseforfolder(0, "SELECCIONE LA CARPETA...