Excel Não foi possível executar o método AutoFilter da classe Range

[Marco Sousa]

Olá

Preciso de filtrar dados numa tabela de EXCEL

Private Sub txtFILTRO_Change()
    If txtFILTRO.Value <> "" Then
    Selection.AutoFilter field:=2, Criteria1:="*" & Me.txtFILTRO.Text & "*"
    Else
    Selection.AutoFilter field:=2
    End If
End Sub

Dá o seguinte erro:

Run-time error '1004':

Não foi possível executar o método AutoFilter da classe Range

E marca a seguinte linha no código:

Selection.AutoFilter field:=2, Criteria1:="*" & Me.txtFILTRO.Text & "*"

Se me poderem ajudar agradeço. Obrigado.