Macro determines the range name of the active cell in Excel

'This macro searches through all the defined names in a workbook to find
'the name(s) that the activecell appears in. For those names it finds
'it displays a message box with the range name in it
'
Sub Find_Name_ActiveCell_In()
   Dim oCurrentName as Name            
   Dim rRng as Range
'
'Ignore any errors and may occur from some names referencing 
'external workbooks
'
    On Error Resume Next
'
'Loop through all the defined names in the workbook
'
    For Each oCurrentName In Names
'
'make sure the name is a valid cell reference
' 
       Set rRng = Range(oCurrentName.Name)
'
'check the error flag to make sure no error was generated by the
'above line
'
        If Err = 0 Then
'
'Test to see if the active cell is in the current named range
'
           If Not Intersect(ActiveCell, rRng) Is Nothing Then
'
'if it is then display the message box
'
                MsgBox "Activecell is in the range named " & _
                    oCurrentName.Name & """"
            End If
        Else
'
'reset the error flag
'
            Err = 0
        End If
    Next
End Sub