[GeorgeK]

Λογικά έχεις γράψει διαφορετικά τη λέξη Ευρετήριο στο tab από ότι εγώ. Μπορεί να έχεις spaces στην αρχή ή στο τέλος, Αγγλικό το αρχικό Ε ή κάτι άλλο.

Για να ξεμπλέξεις εύκολα βάλε το παρακάτω

ActiveWorkbook.Worksheets(1)

αντί

ActiveWorkbook.Worksheets("Ευρετήριο").

Ο αριθμός στις παρενθέσεις υποδηλώνει τον αριθμό του φύλου εργασίας στο οποίο θα εφαρμοστεί ο κώδικας. Το 1 για το πρώτο, το 2 για το δεύτερο κοκ. Αφού το Ευρετήριο θα είναι μόνιμα το πρώτο σου φύλο βάλε μέσα στην παρένθεση 1 αντί για τη λέξη και θα παρακάμψεις το πρόβλημα εύκολα