Eliminar Hoja por codigo

Hola Grupo.

Este código elimina una hoja:

Sub Elimina()
Sheets("Hoja1").Delete
End Sub

Al ejecutar la macro surje un dialogo que dice lo siguiente:
"Pueden existir datos en las hojas seleccionadas para eliminar. Para
eliminar definitvamente los datos, pulse Eliminar." Y da las opciones de
pulsar sobre los botones "Eliminar" o "Cancelar".

El problema es que la macro tarda horas en ejecutarse y hace cientos de
eliminaciones de hojas necesita que una persona este atendiendo estos
mensajes, y pulsando sobre el botón "Eliminar".

¿Qué código puedeo añadir para que no me haga esta pregunta y elimine sin
intervención del usuario?

Gracias anticipadas.