Pessoal, boa noite!

Possuo um banco de dados com 12 colunas + algumas colunas auxiliares.

Os dados contidos nelas são pesquisados por vários combobox's presentes em uma userform, cada um com seguinte código:

If ComboBoxMês <> "" Then
Selection.AutoFilter Field:=3, Criteria1:="=" & ComboBoxMês.Text

End If

If ComboBoxAno <> "" Then
Selection.AutoFilter Field:=4, Criteria1:="=" & ComboBoxAno.Text

End If

Ou seja, se eu digitar Janeiro no comboboxMês, e 2013 no comboboxAno, o código pesquisará por Janeiro na 3° coluna e 2013 na 4° coluna da planilha. Até ai tudo bem, visualizarei todas as linhas que possuem Janeiro e 2013, mas para eu realizar outra pesquisa, devo retirar todos os filtros da pesquisa anterior. Para isso, utilizo o seguinte código no botão de comando (realizar nova pesquisa):

unload me

Sheets("banco de dados").Select
On Error Resume Next
ActiveSheet.ShowAllData

userformpesquisa.show

Sendo que o banco de dados em questão possui inúmeras linhas, as vezes esse código pesa muito a funcionalidade da planilha.

Desde modo, solicito o apoio de vocês no sentido de ajudarem-me a substituir o código utilizado para retirar os filtros, por outro que faça essa ação de maneira mais fácil e leve!

Certo da atenção de vocês.