Pessoal estou aprendendo a usar VBA para melhorar minha planilha. "Estou apanhando muito"
Esta dando a seguinte mensagem.

O método 'Range' do objeto '_worksheet' falhou

No código abaixo que estou usando para pesquisar é esse abaixo. Tenho duas planilhas do sistema que estou montando e uma da base de dados.

'Procedimento para fazer pesquisa no Banco de Dados
Public Sub Pesquisar()

shtDados.Range("Base").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=shtSistema.Range("criterio1", "criterio2"), _
CopyToRange:=shtSistema.Range("local1", "local2"), unique:=False

End Sub