Solved: Click to color

[Sorin Sion]

Change:

    i = Target.Row

to:

    i = Target.Row
    if i < 2 Then Exit Sub

if your data starts on the second row