angelbenito

Este código cierra todos libros que haya abiertos Sub GuardarYCerrar() Err = 0: On Local Error GoTo Exit_GuardarYCerrar Application.Cursor = xlWait Application.DisplayAlerts = False Dim k As Integer For k = 1 To Application.Workbooks.Count...