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

The above code is from Tom Olgilvy as copied from the
contextures web site.

My questions about this neat code include:

- can I set it up to run in every work book I open (maybe
run from personal)

- can I set it up to run everytime I change a filter on
an auto filter list.

Thanks for the time - I use auto filter almost everyday
and the count of records not showing in the lower
left "because I must have auto calc on" is killing me.

Thanks Todd Frisch