Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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