Retrouver le Name d'un Range

MyRange.Application.ActiveWorkbook.Names.Add Name:=MyName, RefersToR1C1:=MyRange

If N.RefersToLocal = MyRange.Name Then

Function SearchName(MyRange As Range, Optional bGlobal As Boolean = True) As Name
Dim N As Name
On Error GoTo error_SearchName

    If (bGlobal) Then
    For Each N In MyRange.Application.ActiveWorkbook.Names
        If N.RefersToLocal = MyRange.Name Then
            Set SearchName = N
            Exit Function
        End If
    Next N
    Else:
        For Each N In MyRange.Worksheet.Names
      If N.RefersToLocal = MyRange.Name Then
            Set SearchName = N
            Exit Function
        End If
        Next N
    End If
    
    Exit Function
error_SearchName:
    Set SearchName = Null
End Function

If N.RefersToR1C1 = MyRange.Address(ReferenceStyle:=xlR1C1) Then