[Γενικά] ListBox-ετικέτες

[Spirosgr]

Ρίξε μια ματιά στο αρχείο...

Στο Initialize, έγινε:
ListBox1.List = Sheets("Data").Range("iTable").Value

Θα πρέπει να διορθώσεις και όπου αλλού, υπάρχει η «πηγή» της λίστας.

Δεν είδα με προσοχή τον κώδικα, αλλά υπάρχουν κάποια πράγματα
που διάβασα στα «πεταχτά» και που πρέπει να διορθωθούν.

Στα κουμπιά έχεις ActiveWorkbook.Save

Δεν ξέρω αν πρέπει μετά από κάθε κλικ να αποθηκεύει.
Καλό θα ήταν να μπεί μια αποθήκευση στο τέλος,
στο κλείσιμο του βιβλίου, με μορφή Me.Save.

Από την άλλη, ActiveWorkbook.Save, σημαίνει αποθηκεύω το ενεργό βιβλίο.

Αν αργότερα, χρειαστεί για παράδειγμα να είναι ανοιχτό κάποιο άλλο βιβλίο
(χειροκίνητα ή από κώδικα) και εκείνη την στιγμή είναι ενεργό το άλλο βιβλίο;

Εκεί έχουμε τεράστιο σφάλμα...

Βάλε στην θέση τους ThisWorkbook.Save (όπως έβαλα στο πρώτο κουμπί)
για να αποθηκεύει «Αυτό το βιβλίο εργασίας...»

Πάντως εγώ θα το έβαζα στο τέλος όπως προείπα...