If you want to get the name and address of the named range that contains the selected cell :-
Dim n As Variant, rng As Range
If Selection.Cells.Count <> 1 Then Exit Sub
On Error GoTo e
For Each n In Application.Names
Set rng = Range(Mid(n, 2))
If Not rng Is Nothing Then
If Not Intersect(rng, Selection) Is Nothing Then
MsgBox "The selected cell is in " & n.Name & " (" & rng.Address(0, 0) & ")"
MsgBox "There is no named range that contains the selected cell"