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?