[ChrisGT7]

Σπύρο,

Κάνε δοκιμές στο συνημμένο αρχείο να δεις αν σε βολεύει καλύτερα.

Όπως θα δεις, συρρίκνωσα λίγο τον κώδικα του Workbook_SheetChange() και έκανα ένα module με τη διαδικασία EGINAN_ALLAGES() για τα υπόλοιπα φύλλα εργασίας.

Στο Workbook_SheetChange() πρόσθεσα τη γραμμή If Len(Sh.Name) > 4 Then Exit Sub έτσι ώστε ο κώδικας να εκτελείται μονάχα στα φύλλα εργασίας που το πλήθος γραμμάτων του ονόματός τους (π.χ. 000Α) είναι μικρότερο των 4 χαρακτήρων.

Ίσως αυτό να εννοούσες πριν όταν είπες πως επηρεάζει όλα τα φύλλα. Λογικά ο κώδικας δεν πρέπει να εκτελεστεί στο φύλλο π.χ. ΜΕΝΟΥ ή Όροι Χρήσης, αν καταλαβαίνω καλά. Οπότε αν κρατάς το μέγεθος αυτών των φύλλων κάτω από 4 χαρακτήρες, δεν θα έχεις πρόβληβα. Αλλιώς, θα πρέπει να γίνει μια λίστα με τα ονόματα των φύλλων που δεν πρέπει να εκτελείται.

Για οποιαδήποτε άλλη απορία, με ενημερώνεις αν μπορώ να βοηθήσω περισσότερο.