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