using VBA or just when manually applying an autofilter?
When you've applied it manually it shoul be displayed in the statusbar how many records were affected..
When using VBA you could count the number of visible fields in the first column (minus 1 for the columnheader):
e.g. ActiveSheet.AutoFilter.Range.Columns(1).SpecialCel ls(xlCellTypeVisible).Count
Hope this helps