Detectar color de celda con formato condicional

¡ Hola !

Tengo una macro hecha que me detecta el color de un grupo de celdas y me pone el numero que le corresponde a ese color en cada celda. El problema es que esta macro no me detecta el color de las celdas cuando he aplicado en ellas un formato condicional.

Os dejo la macro que tengo por si alguien puede ayudarme a modificarla y que me detecte el color del formato condicional de esas celdas.

Sub DetectaColor()
'Detecta el tono de color de cada celda
'y pone su número a la derecha de la celda
Dim i As Integer
Dim ColorCelda As Integer
Range("F5:F322").Select
For i = 1 To 31
Selection.Offset(0, 1).Select
ColorCelda = Selection.Interior.ColorIndex
Selection.Offset(0, 0).Value = ColorCelda


Next

Range("a1").Select

End Sub

Muchas gracias a todos!!