Function Saberi(Polja As Range) Dim Skupina As Range Dim Polje As Object Dim Vrijednost Dim Zbir As Double Dim Celija As String Set Skupina = Polja Saberi = 0 For Each Polje In Skupina.Cells Vrijednost = Polje If IsNumeric(Polje) Then Zbir = Zbir + Vrijednost Else Celija = Polje.Address MsgBox Celija & " Nije numericko" GoTo Kraj End If Next Saberi = Zbir Exit Function Kraj: Saberi = Celija End Function