JW:

Are you clicking outside of a J cell before clicking back into it? The
section change event doesn't fire if you click a cell a second time once
you've already clicked on it; so if you're in H, then click on a J cell, it
fires. But then if you click the same cell, it won't; you would need to
click OUTSIDE that J cell and BACK in it (thus CHANGING the selection).

HTH

"J.W. Aldridge" wrote in message
...
Code works sometimes, but no firing at times.
Any clues?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("j1:j65000")) Is Nothing
Then
If Selection.Value < "DONE" Then
Selection.Value = "DONE"
Range("A" & Selection.Row & ":j" &
Selection.Row).Interior.ColorIndex = 15
Else
Selection.Value = ""
Range("A" & Selection.Row & ":j" &
Selection.Row).Interior.ColorIndex = xlNone
End If


End If
Application.EnableEvents = True
End Sub