Como excluir linha no excel com macro - texto composto

[Carlos Vizoni]

Bom dia a todos!

 

Preciso uma macro para excluir as linhas com determinada palavra, encontrei a macro abaixo.

Sub Excluizebra()
Dim LR As Long
With ActiveSheet
.UsedRange.AutoFilter Field:=1, Criteria1:="zebra"
LR = .Cells(.Rows.Count, 2).End(xlUp).Row
If LR = 1 Then GoTo vazaí
.Range("A2:A" & LR).SpecialCells(xlCellTypeVisible). _
EntireRow.Delete
vazaí:
.AutoFilterMode = False
End With
End Sub

 

Meu problema é que em muitos casos a palavra "zebra" vem acompanhada por outras palavras como por exemplo "zebra+leão" ou "zedralistrada" ou "florestacomzebra", etc..

Como devo fazer?

[Visitante]

Experimente:

... Criteria1:="*zebra*"

Se não resolver sugiro que você disponibilize uma amostra do seu arquivo com o código instalado.

[Carlos Vizoni]

Deu certo, obrigado Osvaldo.