Excel eliminar hojas con el mismo prefijo

[harryems]

Hola foreros!


tengo una macro que me va haciendo varias hojas temporales, al final quiero evitarme el tener que hacer un arreglo con el nombre de todas las que se generaron.

Hay alguna forma de eliminar todas las hojas que empiezen con el mimos prefijo en una sola instruccion??

desde ya muchas gracias

[3pies]

Aquí tienes el macro:

Código:

Sub borrar_con_prefijo()
'si hay errores que continúe
On Error Resume Next
'omitimos los avisos
Application.DisplayAlerts = False
'preguntamos el prefijo
respuesta = InputBox("Prefijo de las hojas a borrar", "Pregunta")
'contamos el largo de la respuesta
largo = Len(respuesta)
'para todas las hojas
For Each hoja In Sheets
  'comprobamos si coincide el prefijo
    If Left(hoja.Name, largo) = respuesta Then
      'la borramos
        Sheets(hoja.Name).Select
        ActiveSheet.Delete
      'creamos un contador
        contador = contador + 1
    End If
Next
'si hay contador, mostramos un mensaje
If contador Then MsgBox ("Se han eliminado " & contador & " hojas.")
End Sub

Salu2

[harryems]

Maestro!!!!!

De verdad muchas gracias

[JoaoM]

Mi capacidad no me dá para encontrarle la forma de que; en ves de presentarme la cantidad de hojas borradas, me presente cantidad de hojas y sus nombres, así como un mensage cuando no encuentre la o las hpojas con el prefixo introducido (por equivocacion)

Está genial, quisiera yo