Zero records in Filter

[pancho]

use something like this:

Dim rg As Excel.Range
Range("A1").AutoFilter Field:=1, Criteria1:="axa"
Set rg = Application.Intersect(Range("A:A"), Range
("A1").CurrentRegion).SpecialCells(xlCellTypeVisible)
MsgBox rg.Count - 1 & " records found"


Francisco Mariscal