Function Broj_Celija(Region As Range)
Dim tmp As String, str As String
Dim IntTmp As Integer

tmp = Region.Count
tmp = Right(tmp, 1)
IntTmp = Val(tmp)
    If tmp > 1 And tmp < 5 Then
    str = "
elije"
    Else
    str = "elija"
    End If
MsgBox "Ukupno: " & Region.Count & " " & str
Broj_Celija = Region.Count
End Function