[ChrisGT7]

Δοκίμασε αυτόν τον τροποποιημένο κώδικα για την Eval():

Public Function Eval(Rng As Range) As Currency
    Dim MyCell As Range, TtlSum As Currency
    For Each MyCell In Rng
        If Len(MyCell.Value) Then _
            If IsNumeric(Evaluate("SUBSTITUTE(" & MyCell.Address & ",""€"","""")") + 0) Then _
                TtlSum = TtlSum + Evaluate("SUBSTITUTE(" & MyCell.Address & ",""€"","""")")
    Next
    Eval = TtlSum
End Function

Επίσης, στο D1 δοκίμασε αυτόν τον τύπο:

=" Σύνολο: "&TEXT(Eval(E2:E100);"#.###0,00 €")

Υποθέτω πως τα δεδομένα στο Φύλλο2 γίνονται επικόλληση από κάποια εξωτική πηγή και γι' αυτό δεν θεωρούνται ως αριθμοί.

Θεωρώ όμως, στη στήλη Ε πως με μια απλή αντικατάσταση του "€" με τίποτα, οι τιμές θα γίνουν αριθμοί και με μια απλή SUM() έχεις το ίδιο αποτέλεσμα χωρίς να μπλέκεις με κώδικα.