La siguiente macro hace la función de guardar todos los archivos abierto de una sola vez, en lugar de pasar archivo por archivo y darle guardar.
Sub EXCELeINFOSaveAll() If ActiveSheet Is Nothing Then MsgBox "No hay ningún archivo abierto.", vbExclamation, "EXCELeINFO": Exit Sub For Each WBook In Application.Workbooks Application.StatusBar = False WBook.Save Application.StatusBar = Application.ActiveWorkbook.Name Next WBook Application.StatusBar = False End Sub
