Due macro alla buona. La prima assegna un colore random (rosso o nero) alle celle nel range a1:e1. La seconda, come da te richiesto, semplicemente inverte i due colori.
codice:
Sub assegna_colore_random()
For Each cella In Range("a1:e1")
casuale = Int((2) * Rnd)
With cella
If casuale = 1 Then
.Interior.ColorIndex = 3
Else
.Interior.ColorIndex = 1
End If
End With
Next cella
End Sub
Sub inverti_colori()
For Each cella In Range("a1:e1")
With cella
If .Interior.ColorIndex = 1 Then
.Interior.ColorIndex = 3
Else
.Interior.ColorIndex = 1
End If
End With
Next cella