CountIfVisible?

[woodinville dave]

I'm trying to implement a countif for visible cells. When I use the filter it doesn't seem to affect the values I get back for xlCellTypeVisible. This is my function, I'm sure I am doing something stupid.


Function CountIfVisible(UserRange, criteria)
Dim count As Integer
count = 0
For Each cell In UserRange.SpecialCells(xlCellTypeVisible)
If cell.Value = criteria Then
count = count + 1
End If
Next cell
CountIfVisible = count
MsgBox count
End Function

Thanks for any help,
Dave