Truco Excel. Identificar el color de una celda

Para identificar el color de una celda en Excel, podemos emplear Interior.Color del siguiente modo:

Sub Macro1()
    Dim i As Long
    Dim dato As Long

    For i = 3 To 6
        dato = Cells(i, 2).Interior.Color
        Cells(i, 3).Value = dato
    Next i
End Sub

No funciona con formatos condicionales; si deseáis utilizar los colores de los formatos condicionales, habréis de idear cómo hacerlo o bien esperar a que tenga tiempo a redactar cómo lo hago yo; pero que nadie se espere un programa en Visual Basic brillante, que no fui capaz de hacerlo. Saludos.