Function SumarVisibles(WorkRng As Range) As Double
Dim rng As Range
Dim total As Double
For Each rng In WorkRng
 If rng.Rows.Hidden = False And rng.Columns.Hidden = False Then
 total = total + rng.Value
 End If
Next
SumarVisibles = total
End Function