Function RangeName(objRange As Range) As String
    On Error GoTo err_
    Dim i%
    For i =  1  To ActiveWorkbook.Names.Count
        If objRange.Name = ActiveWorkbook.Names(i).RefersTo Then
            RangeName = ActiveWorkbook.Names(i).Name
            Exit Function
        End If
    Next
    RangeName = objRange.Name
exit_:
    Exit Function
err_:
    Select Case Err.Number
        Case  1004 
            RangeName = ""
        Case Else
            MsgBox "Error #" & Err.Number & vbCrLf & Err.Description, vbInformation
    End Select
    Err.Clear
    Resume exit_
End Function