[Spirosgr]

Καλημέρα
Κατ' αρχήν, να πω, ότι δεν κοίταξα με προσοχή τις φόρμουλες (UDF),
αν είναι σωστά γραμμένες ή όχι.

Το πρώτο που παρατήρησα, είναι ότι, ένα φύλλο (κωδικό όνομα) είναι Sheet1
και ένα άλλο Φύλλο3, που σημαίνει ότι, σε έναν υπολογιστή έχεις office Ελληνικό
και στον άλλο, Αγγλικό (ανεξάρτητα αν είναι 2007 και στα δύο).
Πιθανό, να συμβαίνει κάτι ανάλογο και στα windows ή τις ρυθμίσεις...
Αυτό λοιπόν, πιθανό να είναι η πρώτη αιτία...
Αλλιώς θα διαβάσει αριθμούς ο ένας κι αλλιώς ο άλλος (πχ 1.200,20 ή 1,200.20)
Άρα πρώτον
βλέπεις αν συμβαίνει κάτι τέτοιο...
Δεύτερον
Όλες οι μεταβλητές, που έχεις στον κώδικα, φαντάζομαι, είναι δεκαδικοί...
και επομένως, δήλωσε τις As Double και όχι ως «τίποτα» = Variant
Τρίτο
Βάλε format αριθμών στον κώδικα, ώστε να υπάρχει ένα μόνο αποτέλεσμα και
να αποφύγεις αυτά που είπαμε πιο πάνω.
Τέταρτο
Θα πρότεινα να μην έχεις την Round αλλά να χρησιμοποιήσεις CDbl
Τέλος
Προαιρετικά θα χρησιμοποιούσα Select Case αντί If - ElseIf

Αυτά σαν αρχή, για να ξεκινήσουμε την συζήτηση...
Μετά θα δούμε και τον κώδικα αναλυτικά...