T
Todd F.
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
'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