[kapetang]

Καλησπέρα

Σταμάτη, ο κώδικας που επισυνάπτεις, στον υπολογιστή μου, λειτουργεί κανονικά.

Θα πρότεινα να ελέγξεις τις αναφορές.

Θα πρέπει να τσεκάρεις όσες φαίνονται στο συνημμένο και να ξετσεκάρεις όσες είναι MISSING.

Δοκίμασε και τον κώδικα (έκανα κάποιες αλλαγές) :

Option Explicit
Dim shSel As Worksheet

Private Sub Lst_NmRng_Click()
    shSel.Activate
    Application.Goto Range(Me.Lst_NmRng.Value), False
End Sub

Private Sub Lst_Sh_Click()
    Dim Nme As Name, rngTest As Range, LO As ListObject, i As Long, x() As String
    
    Me.Lst_NmRng.Clear
    Set shSel = Worksheets(Me.Lst_Sh.Value)
    ReDim x(1, 1000) As String

    On Error Resume Next
    For Each Nme In ThisWorkbook.Names
        Set rngTest = Range(Nme.Name)
        If Err = 0 Then
            If Not Nme.Name Like "*!Print_Area*" Then
                If Nme.RefersTo Like "*" & Me.Lst_Sh.Value & "*" Then
                    x(0, i) = Nme.Name
                    x(1, i) = Replace(Replace(Replace(Replace(Nme.RefersTo, "$", ""), "'", ""), _
                                Me.Lst_Sh.Value & "!", ""), "=", "")
                    i = i + 1
                End If
            End If
        Else
            Err.Clear
        End If
    Next Nme
    On Error GoTo 0

    For Each LO In shSel.ListObjects
        x(0, i) = LO.Name: x(1, i) = Replace(LO.Range.Address, "$", "")
        i = i + 1
    Next
    If i = 0 Then
        shSel.Activate
    Else
        ReDim Preserve x(1, i) As String
        Me.Lst_NmRng.Column = x
    End If
    
End Sub

Private Sub UserForm_Initialize()
    Dim Wsh As Worksheet
    For Each Wsh In ThisWorkbook.Sheets
        Me.Lst_Sh.AddItem Wsh.Name
    Next Wsh
End Sub

Καλή τύχη ...............