[Συναρτήσεις] άθροισμα τιμών που περιέχουν σύμβολο του €

[gfevran]

Καλημέρα.
Πως αθροίζω σε μια στήλη με τιμές που περιέχουν το σύμβολο του "€"
Χρήστο καλημέρα.
αναζητώντας τη λύση πρόσεξα ότι σε παλαιότερη ανάρτηση είχα ζητήσει βοήθεια λύση μου έδωσες εσύ
εδώ:
Public Function Eval(Rng As Range) As Currency
Eval = Evaluate("SUM(" & Replace(Replace(Rng, "€", ""), ",", ".") & ")")
End Function

Έβαλα στο module1 την πιο πάνω συνάρτηση αλλά δεν δούλεψε
δες Φύλλο2
Συνημμένο