IF Intersect not working correctly

[Laavista]

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-comfficeffice" /><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!

 

[Richard Schollar]

There's nothing wrong with what you have so presumably it is firing the message when a multi-columnar range is being altered (ie one that includes A and C cells). In which case you could amend to only fire if single cells are changed:

Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)

If Target.Count>1 Then Exit Sub
If Not Intersect(TARGET, Range("A:A")) Is Nothing Then
  MsgBox "IF ID WAS CORRECTED... " _
& vbCrLf & vbCrLf & " ==> Update Checklist... ", vbCritical
End If
End Sub

 

[Laavista]

THANK YOU. I cannot tell you how much this has helped. I really appreciate you taking the time to respond!