Skrivebeskytte og grey felt

Sub worksheet_activate()
    ActiveSheet.Unprotect
    For ræk = 4 To 503
        If Range("H" + CStr(ræk)) = "" Then
            Range("I" + CStr(ræk) + ":L" + CStr(ræk)).Select
            Selection.Locked = False
            Selection.Cells.Interior.ColorIndex = 15
            Selection.Locked = True
        End If
    Next ræk
    ActiveSheet.Protect
End Sub
Private Sub worksheet_Change(ByVal Target As Excel.Range)
Dim ræk
    ræk = Target.Row
    If Target.Column = 8 And ræk >= 4 And ræk <= 503 Then
        ActiveSheet.Unprotect
        Range("I" + CStr(ræk) + ":L" + CStr(ræk)).Select
        If Target.Value <> "" Then
            Selection.Locked = False
            Selection.Cells.Interior.ColorIndex = xlNone
        Else
            Selection.Cells.Interior.ColorIndex = 15
            Selection.Locked = True
        End If
        ActiveSheet.Protect
    End If
End Sub

Det virker rigtig fint. Der er kun et lille problem:
Når der skrives i H åbnes I-L, men I-L er markeret. Jeg vil gerne have at det kun er I-cellen der markeres.

Har selv fundet løsningen:

Tilføjet Range("I" + CStr(ræk)).Select efter
Selection.Cells.Interior.ColorIndex = xlNone

Smid et svar!

Ok - det får du så...