Actually that would be more robust if it were

Sub CountVisRows()
'by Tom Ogilvy
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range

MsgBox rng.Columns(1). _
SpecialCells(xlVisible).Count - 1 _
& " of " & rng _
.Rows.Count - 1 & " Records"

End Sub
-- Regards,Tom Ogilvy"Frank Kabel" wrote in message
...
Hi
have a look at
http://www.contextures.com/xlautofilter03.html#Count

--
Regards
Frank Kabel
Frankfurt, Germany

When you filter a range between to dates, does anyone know how to
count the filtered results?

Regards
Paul


---
Message posted from http://www.ExcelForum.com/