Guru do Excel e Power BI

Boa noite!

Amigos estou tendo uma dificuldade de criar um filtro automático, aonde eu digite a palavra ou letra e apenas as palavras que contenham o que digitei permaneçam na linha.

Ex: Vários nomes na coluna B3 até B500, mas eu quero achar apenas os Brunos, ao digitar no "TextBox" Bruno, ficar só os mesmos.
Eu usei esse código:
Private Sub TextBox1_Change()
Selection.AutoFilter Field:=2, Criterial:=CStr("*" + TextBox1.Text) + "*"
End Sub

Porém fica dando erro em tempo de execução 1004.

Veja se ajuda:

Obrigado pelo retorno, ainda sim, não funciona, da esse erro:

AfonsoMira escreveu:Veja se ajuda:

Código: Selecionar todos

ActiveSheet.Range("$A$1:$C$1042").AutoFilter Field:=2, Criteria1:=TextBox1

Meu brother não sei ao certo o que fiz depois, mas sei que o erro parou, adcionei o & "*" e a planilha ficou perfeita, muito obrigado.