Selection Entirely In Names : Name « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Name

Selection Entirely In Names

 
Public Sub SelectionEntirelyInNames()
  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 = aName.RefersToRange
    If Not NameRange Is Nothing Then
      If NameRange.Parent.Name = ActiveSheet.Name Then
        Set aRange = Intersect(Selection, NameRange)
        If Not aRange Is Nothing Then
          If Selection.Address = aRange.Address Then
            Message = Message & aName.Name & vbCr
          End If
        End If
      End If
    End If
  Next aName
  If Message = "" Then
    MsgBox "The selection is not entirely in any name"
  Else
    MsgBox Message
  End If
End Sub

 

Related examples in the same category