[ChrisGT7]

Χρήστο,

Αντί να χρησιμοποιείς την CELL(), θα σου πρότεινα να βάζεις το μάθημα μέσω κώδικα στο Ε15. Το δοκίμασα και λειτούργησε. Δηλαδή:

Στην υπορουτίνα CreateSheetsFromList και κάτω από τη γραμμή κώδικα ActiveSheet.Name = c.Value, γράψε την εντολή: Range("E15").Value = c.Value.

Επίσης, εμφανίζεται σφάλμα και σταματάει ο κώδικας κατά τη δημιουργία νέου φύλλου. Σύμφωνα με το μήνυμα, η ονομασία φύλλων πρέπει να τηρεί κάποιους κανόνες και ένας από αυτούς είναι το μήκος του ονόματος πρέπει να είναι μικρότερο ή ίσο των 31 χαρακτήρων. Κάποια μαθήματα έχουν περισσότερους χαρακτήρες από 31, οπότε θα πρέπει να τα μειώσεις κάπως.

Ό,τι πρόβλημα προκύψει, με ενημερώνεις.