[stam75]

Γεια σας και πάλι!
Για το συγκεκριμένο ζητούμενο που έδωσε πολύ χρήσιμη λύση ο Γιώργος βρήκα κι άλλη εκδοχή στην οποία κάνει ακριβώς αυτό που ζητούσα αρχικά.
Όμως, όταν αντιγράφω τον κώδικα στο κανονικό βιβλίο μου και πάω να δουλέψω με το κουμπί, όταν κάνω κλικ σε ένα από τα φύλλα του βιβλίου μου πετάει

Runtime error '1004':
Method 'Range' of object '_Global' failed

και όταν πατάω debug
μου δείχνει το παρακάτω (με κίτρινο φόντο τα κόκκινα γράμματα.)

Private Sub lbxSheets_Click()
   Dim Nme As Name
   Me.lbxNamedRanges.Clear
   For Each Nme In ThisWorkbook.Names
      If Range(Nme).Parent.Name = Me.lbxSheets.Value Then Me.lbxNamedRanges.AddItem Nme.Name
   Next Nme
End Sub

Γνωρίζει κάποιος τι ακριβώς συμβαίνει;