Some people put notes/other data after the autofilter range. If that's the
case, then this may give you incorrect results.



STEVE BELL wrote:

Assuming that column A is part of the data

Dim x As Long, y As Long

x = Cells(Rows.Count, "A").End(xlUp).Row

y = Range(Cells(1, 1), Cells(x, 1)).SpecialCells(xlCellTypeVisible).Count
MsgBox y

--
steveB

Remove "AYN" from email to respond
"mark" wrote in message
...
Hello.

Is there a quick way to retrieve the number of rows returned in an
AutoFilter object?

For instance, if there were 20 rows of data, but when the autofilter
criteria are applied, only 5 rows are visible... to return that number, 5,
in
code?

Thanks,
Mark

--

Dave Peterson