[ChrisGT7]

Αυτή η Eval() δέχεται μόνο ένα κελί ως εύρος και όχι πολλά.

Αντικατέστησε τον παλιό κώδικα της Eval() με τον παρακάτω να δεις αν έχεις σωστά αποτελέσματα:

Public Function Eval(Rng As Range) As Currency
    Dim MyCell As Range
    For Each MyCell In Rng
        Eval = Eval + Evaluate("SUM(" & Replace(Replace(MyCell, "€", ""), ",", ".") & ")")
    Next
End Function