Markierte Zellen & Ergebnisse anzeigen

[Solevita]

Chat GPT hat mir folgenden Code empfohlen aber auch der funktioniert nicht:

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
Range(Cells(2, Target.Column), Cells(2, Target.Column)).Interior.Color = vbYellow
Cells(Target.Row, 1).Interior.Color = vbYellow
End If
End Sub