Change cell when other cells in row are changed - check all rows

[ghoshl1]

Hi All,

I'm having trouble with the following:

1. Need to check each row individually - and if from columns b through n and column r are changed - modify column a to say "updated".

I'm using the code below for the continuous range - but I need it b-n and then r...

Also it seems to work once - then doesn't not work again.

Help????

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cl As Range

If Not Intersect(Target(1, 1), Range("B:R")) Is Nothing Then
    Application.EnableEvents = False
    For Each cl In Target(1, 1)
    Cells(cl.Row, 1) = "Updated"
    On Error Resume Next
    Application.EnableEvents = True
    Next
    End If

On Error GoTo 0
End Sub