Hi robert,

I would prefer it like the following then all you have to do is add ranges
to the Union instead of lots of case lines.

Note that a space and underscore is a line break in an otherwise single line
of code.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngUnion As Range
Dim rngIsect As Range

Set rngUnion = Union(Range("A1"), _
Range("B1"), Range("M20:P40"), _
Range("R20:R40"))

Set rngIsect = _
Application.Intersect(Target, rngUnion)

If Not rngIsect Is Nothing Then
MsgBox Target.Address(0, 0) & _
" was just modified"
End If

End Sub

--
Regards,

OssieMac