I need to display a message if a cell is changed. I got this working, but it's also displaying the message when a procedure puts a note in another column.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
ffice
ffice" /><o
></o
>
<o
> </o
>
For example:<o
></o
>
<o
> </o
>
A B C<o
></o
>
1 123 No <o
></o
>
2 489 Yes Notes added via VBA code<o
></o
>
3 285 No<o
></o
>
<o
> </o
>
If A1 is changed to something, e.g., 999, then the message should display, but NOT if a note is added in C2.<o
></o
>
<o
> </o
>
My code:<o
></o
>
Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
If Intersect(TARGET, Range("A1:A4000")) Is Nothing Then
Exit Sub
Else
MsgBox ("IF ID WAS CORRECTED... " _
& vbCrLf & vbCrLf & " ==> Update Checklist... "), vbCritical _
End If
End Sub<o
></o
>
<o
> </o
>
I also tried range("A:A") with no luck.<o
></o
>
<o
> </o
>
I really appreciate your help!




<o


For example:<o


<o


A B C<o


1 123 No <o


2 489 Yes Notes added via VBA code<o


3 285 No<o


<o


If A1 is changed to something, e.g., 999, then the message should display, but NOT if a note is added in C2.<o


<o


My code:<o


Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
If Intersect(TARGET, Range("A1:A4000")) Is Nothing Then
Exit Sub
Else
MsgBox ("IF ID WAS CORRECTED... " _
& vbCrLf & vbCrLf & " ==> Update Checklist... "), vbCritical _
End If
End Sub<o


<o


I also tried range("A:A") with no luck.<o


<o


I really appreciate your help!