Thanks Tom. I've updated the code.

Tom Ogilvy wrote:
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


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html