Execute on Cell Change - Problem

Hello, folks:

I'm trying to execute a series of code steps based on changes to ranges of
cells. I have used this code before, but for some reason it's not working
now and I can't spot why.

Basically, I want to change the value of cells in a column AB (28) of my
worksheet if any cell in ranges D8:F1000 or V8:X1000 change.

Here is the code. Can anyone spot anything obvious?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim myRow&, myCol&
myRow = Target.Row
myCol = Target.Column
If myRow > 7 And myRow < 1001 Then
If (myCol > 6 And MyCOL < 9) Or _
(myCol > 21 And MyCOL < 25) Then

{code steps here, which do a row-by-row evaluation of the contents of the
target ranges and put a string of text (which varies depending upon the
contents of the targets) in the corresponding row in column 28.}

End If 'myCol
End If 'myRow

I commented out the code above and tried it with a command button and it
works fine, so I know the code steps are not the problem.

Thoughts? Thanks in advance.

MARTY

? Range("D1").Column
4
? Range("F1").Column
6

so
> If (myCol > 6 And MyCOL < 9) Or _

should be
If (myCol > 3 And MyCOL < 7) Or _


--
Regards,
Tom Ogilvy

"Marty" <Marty@discussions.microsoft.com> wrote in message
news:C48FAC19-8B8A-40EA-B446-AC4D14BCF346@microsoft.com...
> Hello, folks:
>
> I'm trying to execute a series of code steps based on changes to ranges of
> cells. I have used this code before, but for some reason it's not working
> now and I can't spot why.
>
> Basically, I want to change the value of cells in a column AB (28) of my
> worksheet if any cell in ranges D8:F1000 or V8:X1000 change.
>
> Here is the code. Can anyone spot anything obvious?
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> Dim myRow&, myCol&
> myRow = Target.Row
> myCol = Target.Column
> If myRow > 7 And myRow < 1001 Then
> If (myCol > 6 And MyCOL < 9) Or _
> (myCol > 21 And MyCOL < 25) Then
>
> {code steps here, which do a row-by-row evaluation of the contents of the
> target ranges and put a string of text (which varies depending upon the
> contents of the targets) in the corresponding row in column 28.}
>
> End If 'myCol
> End If 'myRow
>
> I commented out the code above and tried it with a command button and it
> works fine, so I know the code steps are not the problem.
>
> Thoughts? Thanks in advance.
>
> MARTY

That did it. Thanks so much, Tom. I figued it was something simple I was
overlooking.

{Note to self: D = 4, D<>6 . . .}

"Tom Ogilvy" wrote:

> ? Range("D1").Column
> 4
> ? Range("F1").Column
> 6
>
> so
> > If (myCol > 6 And MyCOL < 9) Or _
>
> should be
> If (myCol > 3 And MyCOL < 7) Or _
>
>
> --
> Regards,
> Tom Ogilvy
>
> "Marty" <Marty@discussions.microsoft.com> wrote in message
> news:C48FAC19-8B8A-40EA-B446-AC4D14BCF346@microsoft.com...
> > Hello, folks:
> >
> > I'm trying to execute a series of code steps based on changes to ranges of
> > cells. I have used this code before, but for some reason it's not working
> > now and I can't spot why.
> >
> > Basically, I want to change the value of cells in a column AB (28) of my
> > worksheet if any cell in ranges D8:F1000 or V8:X1000 change.
> >
> > Here is the code. Can anyone spot anything obvious?
> >
> > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > Dim myRow&, myCol&
> > myRow = Target.Row
> > myCol = Target.Column
> > If myRow > 7 And myRow < 1001 Then
> > If (myCol > 6 And MyCOL < 9) Or _
> > (myCol > 21 And MyCOL < 25) Then
> >
> > {code steps here, which do a row-by-row evaluation of the contents of the
> > target ranges and put a string of text (which varies depending upon the
> > contents of the targets) in the corresponding row in column 28.}
> >
> > End If 'myCol
> > End If 'myRow
> >
> > I commented out the code above and tried it with a command button and it
> > works fine, so I know the code steps are not the problem.
> >
> > Thoughts? Thanks in advance.
> >
> > MARTY
>
>
>