Funkcia súčet viditeľných hodnôt

Function SumaViditelnych(X As Range)

    For Each cell In X
        If cell.Rows.Hidden = False Then
            Sum = Sum + cell.Value
        End If

    Next cell

    SumaViditelnych = Sum

End Function