[Tasos]

Καλημέρα Μανώλη και ευχαριστώ για τις παρατηρήσεις!

Το πρόβλημα που περιγράφεις εμφανίζεται στην έκδοση Excel 2003.

Σε νεώτερες εκδόσεις λειτουργεί κανονικά.

Σήμερα που βρίσκομαι σε υπολογιστή με Office 2003 μπόρεσα να αναπαράγω το σφάλμα που περιγράφεις και προτείνω τα εξής:

Στο συμβάν Workbook_SheetChange

Άλλαξε το Range("A7:C7") με το Range("A7:C" & Rows.Count)

Επίσης άλλαξε το StartRange:="A7:C7" με το StartRange:="A7:C" & Rows.Count.

Όσο για την αλλαγή κωδικού ονόματος ενός φύλλου και γενικά ενός αντικειμένου στη VB
δες την εικόνα παρακάτω:

Θα πρέπει να αποφεύγουμε να επικαλούμαστε ονόματα φύλλων στην Excel που ο κοινός χρήστης θα μπορούσε να μετονομάσει/μετακινήσει από την επιφάνεια εργασίας της εφαρμογής προκαλώντας σφάλματα στον κώδικα μας.

Μια καλή λύση είναι να χρησιμοποιούμε το κωδικό όνομα ενός φύλλου το οποίο δεν επηρεάζεται από επεξεργασίες του ονόματος του φύλλου που ίσως θελήσει να κάνει ο χρήστης.

Καλή συνέχεια!

Φιλικά

Τάσος