Use Intersect when you want to find the cells that are common to two or more ranges, or in other words, where the ranges overlap. : Range Intersect « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Range Intersect

Use Intersect when you want to find the cells that are common to two or more ranges, or in other words, where the ranges overlap.

 
     Private Sub Worksheet_SelectionChange(ByVal Target As Range)
         Dim rngForbidden As Range
         Set rngForbidden = Union(Range("B10:F20"), Range("H10:L20"))
         'If selection does not overlap forbidden areas, do nothing
         If Intersect(Target, rngForbidden) Is Nothing Then Exit Sub
         Range("A1").Select
         MsgBox "You can't select cells in " & rngForbidden.Address, vbCritical
     End Sub

 

Related examples in the same category