Thanks Rick!
I knew there had to be a better way.
If I could just graduate from "plain vanilla" programming to "chocolate" or
"strawberry", I'd be dangerous.

--
Ken Hudson


"Rick Rothstein (MVP - VB)" wrote:

Try it this way....

If Intersect(Target, Range("G9:G13,G17:G21,G25:G29")) Then

Rick


"Ken Hudson" wrote in message
...
I have the following code as part of a macro. Is there a more efficient
(i.e.
less code) way of writing this IF statement?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$G$9" Or Target.Address = "$G$10" Or _
Target.Address = "$G$11" Or Target.Address = "$G$12" Or _
Target.Address = "$G$13" Or Target.Address = "$G$17" Or _
Target.Address = "$G$18" Or Target.Address = "$G$19" Or _
Target.Address = "$G$20" Or Target.Address = "$G$21" Or _
Target.Address = "$G$25" Or Target.Address = "$G$26" Or _
Target.Address = "$G$27" Or Target.Address = "$G$28" Or _
Target.Address = "$G$29" Then
.......................

TIA.
--
Ken Hudson