determining if cell is part of named range and what that named range is

Ok, I got one I can't seem to figure out.

Let's say you have a named range, Rng1, which consists of cells A1 & A2. In vba how would you report back what, if any, named range the following cells resides:

Cells(1, 1)
'  Looking for a way so that this cell reference would identify that it is part of Rng1

Note: There are multiple named ranges so using intersect is not feasible. Essentially, through code, I will be given a range and I need to determine if that range if part of a named range.

If this doesn't make sense or you need an example workbook please let me know. Thanks.

Hi stnkynts

Something like this

Sub RangeNames()
'http://www.mrexcel.com/forum/excel-questions/875-visual-basic-applications-cell-given-range.html
  Dim nm As Name
  For Each nm In ActiveWorkbook.Names
    If Not Intersect(Cells(1, 1), nm.RefersToRange) Is Nothing Then
      MsgBox nm.Name
    End If
  Next
End Sub

You could do something like this

Dim oneName As Name
Dim testCell As Range

Set testCell = Range("A5")

On Error Resume Next
For Each oneName In ThisWorkbook.Names

    If Not Application.Intersect(oneName.RefersToRange, testCell) Is Nothing Then
        MsgBox testCell.Address & " is in " & oneName.Name & vbCr & _
                "which address is " & oneName.RefersToRange.Address
    End If

Next oneName
On Error GoTo 0