Public Sub NamesOverlappingSelection()
Dim Message As String
Dim aName As Name
Dim NameRange As Range
Dim aRange As Range
On Error Resume Next
For Each aName In Names
Set NameRange = Nothing
Set NameRange = Range(aName.Name)
If Not NameRange Is Nothing Then
If NameRange.Parent.Name = ActiveSheet.Name Then
Set aRange = Intersect(Selection, NameRange)
If Not aRange Is Nothing Then
Message = Message & aName.Name & vbCr
End If
End If
End If
Next aName
If Message = "" Then
Debug.Print "No Names are overlapping the selection"
Else
Debug.Print Message
End If
End Sub