Boa noite!

Estou criando um código para quando digitar alguma palavra na célula c3 e a macro do vba aplique o filtro na tabela com o texto que está na célula c3. Porém a regra do filtro é para buscar o texto que contém certa palavra. Por exemplo: Na célula c3 eu digito a palavra Silva, o filtro apresente os dados: João da Silva, Paulo Silva Alves ...

Não sei o que está errado. Algum pode me ajudar??

 

Segue código abaixo.

 

Código do Módulo:

Sub FILTRO_NOME_FORNECEDOR()

Dim FornecedOr As String
FornecedOr = Planilha1.Range("C3").Value

ActiveSheet.ListObjects("tab_sefaz").Range.AutoFilter Field:=3, Criteria1:= _
"=*fornecedor*", Operator:=xlAnd

End Sub.

 

Código inserido na planilha para quando alterar a célula da planilha o código ser executado:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$3" Then

Call FILTRO_NOME_FORNECEDOR
Exit Sub

End If
End Sub