Funktion til at tælle summen i synlige cellser

Hej

Jeg kan ikke finde ud af, hvorfor følgende giver resultatet Navn?

=SumVisible(H89:LE89)

Koden ligger i denne projektmappe
---------------------------------------------VBA--------------------------
Function SumVisible(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
SumVisible = total
End Function