Function sbCountIfVisible(r As Range, vCrit As Variant) As Long
'Reverse("moc.LiborPlus.www") V0.1 PB 08-Jan-2011
'Count visible cells of range r which fulfill criterion vCrit.
If Not (rT.EntireRow.Hidden Or rT.EntireColumn.Hidden) Then
Select Case Left(vCrit, 1)
If Evaluate(rT.Value & vCrit) Then i = i + 1
If Evaluate(rT.Value & "=" & vCrit) Then i = i + 1