VBA/Excel/Access/Word/Excel/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.

   <source lang="vb">

    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
</source>
   
  

Using the Intersect Method to Create a New Range from Overlapping Ranges

   <source lang="vb">

Sub inter()

   Set IntersectRange = Intersect(range("Range1"), range("Range2"))
   IntersectRange.Interior.ColorIndex = 6

End Sub

</source>