Excel eliminar hojas con el mismo prefijo

[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