Obviar solicitud de confirmación al eliminar hojas con macro
M?a
24 de Mayo del 2005
Tengo la siguiente macro en Excel:
Sub CuentaElimina()
n = Sheets.Count
Do While n > 3
Sheets(n).Select
ActiveWindow.SelectedSheets.Delete
n = Sheets.Count
Loop
Sheets(1).Select
End Sub
Cuenta las hojas y elimina desde atrás hacia adelante si hay más de tres hojas, dejando solo 3.
Se ejecuta bien pero va pidiendo confirmación antes de eliminar cada hoja. ¿Cómo puedo obviar esto? ¿Conoce alguien la forma de Aceptar o de evitar el mensaje y solo proceder?
Sub CuentaElimina()
n = Sheets.Count
Do While n > 3
Sheets(n).Select
ActiveWindow.SelectedSheets.Delete
n = Sheets.Count
Loop
Sheets(1).Select
End Sub
Cuenta las hojas y elimina desde atrás hacia adelante si hay más de tres hojas, dejando solo 3.
Se ejecuta bien pero va pidiendo confirmación antes de eliminar cada hoja. ¿Cómo puedo obviar esto? ¿Conoce alguien la forma de Aceptar o de evitar el mensaje y solo proceder?