Rodrigo Gerez

Bom amigos, Pesquisei mas não achei uma solução que funcione. Estou usando o auto-filtro no VBA, mas ele não aplica os critérios automaticamente, na realidade ele só compreende quando eu entro no auto-filtro e dou o simples "ok" nos critérios (que estão corretos!) Abaixo os comandos: Sub Macro2() Dim Data_Pesquisa As Date Dim Data_Pesquisa2 As Date Application.DisplayAlerts = False Application.ScreenUpdating = False ' Macro2 Macro Data_Pesquisa = InputBox("Data inicial", "Qual a data para Atualizações?") Data_Pesquisa2 = InputBox("Data Final", "Qual a data para Atualizações?") sTRARQUIVO = Application.GetOpenFilename("Arquivos para importação (*.xls),*.xls") 'Comando para abertura do arquivo Planilha_Y.xls Workbooks.Open FileName:=sTRARQUIVO Columns("b:b").Select Selection.Clear Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 4), Array(10, 1)), TrailingMinusNumbers:=True Columns("A:A").Select Selection.NumberFormat = "dd/mm/yyyy" Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$G$32").AutoFilter Field:=3, Criteria1:="=*saldo*" Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.Delete ActiveSheet.Range("$A$1:$G$31").AutoFilter Field:=3 Columns("D:D").Select Selection.ClearContents Columns("F:F").Select Selection.ClearContents Selection.AutoFilter ActiveSheet.Range("$A$1:$G$32").AutoFilter Field:=1, Criteria1:=">" & Data_Pesquisa, Criteria2:="<" & Data_Pesquisa2 Application.Calculate Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Como faço pra anexar as planilhas pra facilitar? Obrigado!!! Rodrigo