vba code to count visible rows after autofiltering a table

[epb613]

I autofiltered a table. Now I want to count the remaining rows. I searched online and found the following code snippet, but it doesn't work. It should return 500, but it returns 1000 (it's counting cells, not rows). What's wrong? (If I take out the SpecialCells property, it returns 500 like it should, but obviously I need to leave that in.)

MsgBox Range.Rows.SpecialCells(xlCellTypeVisible).Count

Thanks!
Pinny

 

[Firesword]

Hi All

I know that I'm late to this, but I also needed code for this, and found the below to fit my needs and thought I'd share
lVisibleRow = Application.WorksheetFunction.Subtotal(3, ActiveSheet.Range("A:A"))