When I tested this code, I received the following error when I entered
anything into a cell in the worksheet that is not part of the IF statement:

Run-time error 91.
Object variable or With block variable not set.

What am I missing?

--
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