find all named ranges that contain the selected cell?

[context]

How do I find out if a cell I have selected is included(or not) in one of the numerous named ranges in my workbook?
It would be nice to do this outside of coding.
Ideally I would like to select a cell and have a list of named ranges that include that cell.
Why.. because I have inherited a huge spreadsheet with multiple authors and must rationalize it. Huge is > a million cells, 80 sheets.

 

[stunnrock]

Do you mean the cell value, or the cell reference?

 

[context]

Thanks stunnrock-- I mean the cell reference. I want to know if I restructure the sheet containing the cell what impact it will have. Also the naming of the ranges helps in the comprehension of the overall excel model. There are about 200 named ranges. I may just resort to some code.

 

[PatOBrien198]

Try:

Sub FindNameRefs()

Dim rng As Range
Dim wb As Workbook
Dim NR As Name
Dim msg As String
Set wb = ActiveWorkbook
For Each NR In wb.Names
    If Not Intersect(Selection(1, 1), Range(NR.RefersTo)) Is Nothing Then
        'Debug.Print NR.Name
        msg = msg & vbCrLf & NR.Name
    End If
Next
If Len(msg) > 0 Then
    MsgBox "Current cell is referenced in: " & vbCrLf & msg
Else
    MsgBox "No named ranges refer to current cell."
End If
End Sub

 

[context]

Thanks PatOBrien;
A successful answer for my first post.