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