Function SearchName(MyRange As Range, Optional bGlobal As Boolean = True) As Name
Dim N As Name
On Error GoTo error_SearchName
If (bGlobal) Then
For Each N In MyRange.Application.ActiveWorkbook.Names
If N.RefersToR1C1 = MyRange Then
Set SearchName = N
Exit Function
End If
Next N
Else:
For Each N In MyRange.Worksheet.Names
If N.RefersToR1C1 = MyRange Then
Set SearchName = N
Exit Function
End If
Next N
End If
Exit Function
error_SearchName:
Set SearchName = Null
End Function