Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngForbidden As Range Set rngForbidden = Union(Range("B10:F20"), Range("H10:L20")) Range("A1").Select MsgBox "You can't select cells in " & rngForbidden.Address, vbCritical End Sub