[stam75]

Καλησπέρα Γιώργο, σε ευχαριστώ πολύ που απάντησες.
μετέφερα τον κώδικα στο βιβλίο μου, ενημέρωσα τις 3 περιοχές που έχεις βάλει στα Const
μόνο που δε ξέρω αν το έχω σωστό το παρακάτω γιατί είναι σε άλλο φύλλο

Const startCel As String = Φύλλο06.Range("E10")

Τώρα όταν επιλέγω από την αναπτυσσόμενη λίστα μετά από λίγο μου πετάει μήνυμα

Compile error:
Constant expression required

και μου μαρκάρει το

startCel As String =