Function SUBTOTAL_VIS(Target)
Dim X As Double
Dim c As Range
Application.Volatile
X = 0
For Each c In Target
If c.RowHeight = 0 Then
X = X
Else
X = X + c.Value
End If
Next c
SUBTOTAL_VIS = X
End Function