Du kan fx anvende følgende kode i arkets kodemodul
Dim adr As String
Dim farve
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> "" Then Rows(adr).Interior.ColorIndex = xlNone
farve = Target.Interior.ColorIndex
Rows(Target.Row).Interior.ColorIndex = 35
adr = Target.Row
End Sub
Problemet er blot at evt. bestående farver slettes
En løsning med Betinget format kan du finde i kategorien Formater