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

Hi Mark,

Am Thu, 25 Apr 2013 10:11:21 +0200 schrieb Mark:

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.

try:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K7:K1500")) Is Nothing _
Or Target.Count 1 Then Exit Sub

Range("K7:K1500").Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Hi Claus,
this is perfect!

Thanks
Regards
Mark