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