Markierte Zellen & Ergebnisse anzeigen

[Solevita]

Ich habe es nun hinbekommen, dass in allen Zellen die ich anklicke, die erste Spalten richtig markiert werden. Allerdings funktioniert die Markierung oben in Zeile 2 nach wie vor nur in den blauen Spalten.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng_1 As Range
    Set rng_1 = Range("B3:U20")

    If Not Intersect(Target, rng_1) Is Nothing Then
        Rows(2).Interior.Color = xlNone
        Columns(1).Interior.Color = xlNone
        Cells(2, Target.Column).Interior.Color = vbYellow
        Cells(Target.Row, 1).Interior.Color = vbYellow
    End If
End Sub


Was mache ich falsch? Ich habe doch als Range die gesamte Tabelle angegeben. Von B3 bis U20.