Function test(rng As Excel.Range) As Long
Dim v
For Each v In rng.Rows
If v.Hidden = False Then
test = test + 1
End If
Next
End Function

regards
r

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/...ternative.html


"Bull" wrote:

I have a user form (called FilterForm) that pops up when I hope the
sheet called "TRACK";

I put a text box on this userform (FilterForm) that I am trying to
have display the amount of records that I currently have filtered on
the Sheet (Track).

The text box needs to say the number of records currently filter
(SUBTOTAL).

I put in the controlsource: =SUBTOTAL(2,A1:A999), but this gives me an
error.

Assistance requested oh wise guru's.

Bull