Supondo que os seus dados estejam na coluna $A$1:$A$3

supondo que voce tenha os dados

torneira
tornado
torpedo

Agora você precisa de todos os dados que comecem com "tor" e terminem com "ra"

ActiveSheet.Range("$A$1:$A$3").AutoFilter Field:=1, Criteria1:="=Tor*ra", _
        Operator:=xlAnd

voce usa o wildcard "*" que ele filtra todas as palavras que se encaixem nessa descrição

se isso te ajudou, clique no joinha ao lado de "citar"

Ola amigo, se fosse usando palavras daria certinho.

Mas no caso que quero, não funciona porque a macro busca a célula e o que tiver nela.

Segue a planilha anexo....

Não seria assim:

Sub Macro3()

    ActiveSheet.Range("B5", Selection.End(xlDown)).AutoFilter Field:=1, Criteria1:="*" & Range("D2") & "*", _
        Operator:=xlAnd
End Sub

Obrigado....funcionou!!!

Beleza, fica mais fácil da próxima colocar a planilha em anexo com mais detalhes do que precisa