Option Explicit
Dim Cx%, i%, T_arget$
Private Sub Worksheet_Activate()
Cx = ActiveCell.Interior.ColorIndex
T_arget = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Row < 6 Then Exit Sub
On Error Resume Next
If IsEmpty(T_arget) Then
Cx = Target.Interior.ColorIndex
T_arget = Target.Address
Exit Sub
End If
If Range(T_arget).Interior.ColorIndex <> Cx Then
For i = 1 To 5
Range(T_arget).Offset(, i).Value = 8 - Range(T_arget).Offset(, i).Value
Next
End If
Cx = Target.Interior.ColorIndex: T_arget = Target.Address
End Sub