Private Sub CommandButton1_Click()
    Dim objMyVBACollection As New VBA.Collection
    
    AddItemToCollection objMyVBACollection, "A", "1"
    AddItemToCollection objMyVBACollection, "B", "1"
    AddItemToCollection objMyVBACollection, "C", "1"
    AddItemToCollection objMyVBACollection, "D", "1"
End Sub

Private Sub AddItemToCollection(ByRef ioobjMyCollection As VBA.Collection, _
                                                          ByVal pstrItem As String, _
                                                          ByVal pstrKey As String)

    Static intKeyIncrement As Integer
    
    ioobjMyCollection.Add pstrItem, pstrKey & "_" & CStr(intKeyIncrement)
    intKeyIncrement = intKeyIncrement +  1 
    
End Sub

=Sheet3!$A$ 1 

Private Sub CommandButton1_Click()
    Dim MyClass As New Class1
    Dim R As Range
    
    Set R = MyClass.WsRange(Worksheets("List1"), "VladConn", True) 'R is Nothing
    Set R = MyClass.WsRange(Worksheets("List2"), "VladConn", True):    Debug.Print R.Worksheet.Name & ", " & R.Address
    Set R = MyClass.WsRange(Worksheets("List3"), "VladConn", True):    Debug.Print R.Worksheet.Name & ", " & R.Address
    Set R = MyClass.WsRange(Worksheets("List3"), "VladConn"):    Debug.Print R.Worksheet.Name & ", " & R.Address
    Set R = MyClass.WsRange(Worksheets("List1"), "VladConn"):    Debug.Print R.Worksheet.Name & ", " & R.Address
    
End Sub

Property Get WsRange(ws As Worksheet, _
                                   rngID As String, _
                                   Optional OnWsOnly As Boolean = False) As Range
    
    Dim objReturn As Range
    
    On Error GoTo MethodExit

    If Not ws Is Nothing Then

        If OnWsOnly Then
            Set objReturn = ws.Names(rngID).RefersToRange
        Else
            Set objReturn = ws.Parent.Names(rngID).RefersToRange
        End If

    End If
    
MethodExit:

    Set WsRange = objReturn
    
    If Err.Number <>  0  Then
        If Err.Number =  1004  Then
            Err.Clear
        Else
            MsgBox "Error " & Err.Description & " in NewWsRange", vbCritical
        End If
    End If

End Property