Macro guardar todos los archivos abierto en Excel

Twittear este post Compartir en Facebook

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.

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
Application.StatusBar = Application.ActiveWorkbook.Name
Next WBook
Application.StatusBar = False
End Sub

Leave a Comment

Your email address will not be published. Required fields are marked *

Scroll to Top