Hallo to everybody,

I am tryng to write few Vba lines to highlight a cell after update.
I am using this code, but it doesn't work, either no error message.

Can you please help me? Thanks

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng1 As Range
Dim Rng2 As Range

Set Rng1 = Range("K7:K1500") ' Column("K:K")
Set Rng2 = Intersect(Rng1, Target)

If Target.Count 1 Then Exit Sub
If Target.Column < Rng2 Then Exit Sub
Columns(Rng2).Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
End Sub

Regards
Mark