codice:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("c1:c10")) Is Nothing Then
    With Target
        If .Interior.ColorIndex = 3 Then
            .Interior.ColorIndex = 10
            .Font.ColorIndex = 1
        Else
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
        End If
    End With
End If
End Sub
Questo codice, associato al foglio su cui vuoi che agisca, farà sì che al doppio click di una cella compresa nell'intervallo c1:c10 cambi sia il colore di sfondo che quello di testo.
Adattalo ai tuoi scopi.