Seleccionar y eliminar pestañas excel MACROS

Sub elimina()
ActiveSheet.Next.Select
ActiveWindow.SelectedSheets.Delete
End sub
Si le pones un for a esta macro lo repiete cuantas veces lo necesites.

Esa es una solución, aunque lenta, porque estoy hablando de eliminar alrededores de 50 hojas, y para c/u hay que presionar eliminar en la ventana que aparece.
¿Hay manera de seleccionarlas todas y posteriormente eliminarlas de una vez?
La cuestión es que cada vez que quiera correr el macro los nombres de las hojas a eliminar son difetentes.
Gracias...