Avanceret betinget formatering

Indsæt koden i arkets kodemodul
Hvis en celle  området B10:IV10 er markeret farves A10 rød

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A10").Interior.ColorIndex = xlNone
If Intersect(Target, Range("B10:IV10")) Is Nothing Then Exit Sub
Range("A10").Interior.ColorIndex = 3
End Sub

excelent: Det ser fint ud. Pointsene er hjemme, men kan man lave en tilføjelse, således at koden gælder for f.eks. 40 rækker? F.eks. række 10 til 50?

jada - gælder det stadig kolonne A så

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A10:A50").Interior.ColorIndex = xlNone
If Target.Row < 10 Or Target.Row > 50 Then Exit Sub
Range("A" & Target.Row).Interior.ColorIndex = 3
End Sub

eller ret til

Tak for hjælpen.. :-)