P
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
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