Sub Guardarysalir()
On Error Resume Next
Application.ScreenUpdating = False
ActiveWorkbook.Save
ActiveWorkbook.Activate
ActiveWorkbook.Close
End Sub