Sub ListPlages()
Dim n As Name
Dim ad As String
On Error Resume Next
For Each n In ThisWorkbook.Names
Err.Clear
ad = Intersect(n.RefersToRange, Selection).Address
If Err.Number = 0 And ad = n.RefersToRange.Address Then
MsgBox n.Name & "->" & n.RefersToRange.Address
End If
Next n
End Sub