Code:

Public Function Svega(p As Range) As Double

Dim tabla As Worksheet
Dim a As Integer
Dim b As Integer

a = p.Row
b = p.Column

For Each tabla In ThisWorkbook.Sheets
    If tabla.Name <> "Ukupno" Then
        svega = svega + tabla.Cells(a, b)
    End If
Next tabla
End Function