Macro guardar todos los archivos abierto en Excel
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
