Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("m3:n3,m6")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _...