Opgelost Actieve cel of rij laten oplichten

[malawi]

Onderstaand script heb ik gevonden voor mijn vraag in dit forum. het werkt bijna prima. Maar in de eerste 25 regels wil ik alleen de actieve cel oplichten. En bij rij 26 en meer de hele regel. Hoe kan ik dit scipt aanpassen.

Bij voorbaat dank,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 20
End If
End Sub

 

[AHulpje]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    With Target
        If .Row > 25 Then
            Rows(.Row).Interior.ColorIndex = 20
        Else
            .Interior.ColorIndex = 20
        End If
    End With
End Sub