Color de celda

[fabrual]

Hola a todos, estoy haciendo una hoja de excel a la que le agrego un análisis de datos con Formato Condicional, este me arroja una escala de colores en las celdas pintando de verde las de mayor valor hasta rojo con las de menor valor y una gran gama de colores intermedios para los valores intermedios, lo que quiero hacer es conocer el valor del color usado en cada celda.

Intenté usar la siguiente expresión pero solo me arroja el codigo del color blanco, y no el que se está enmasacarando.

Sub color()
Dim celda As String
Dim col As String

celda = ActiveCell.Address

col = Range(celda).Interior.color

Range("j20").Value = col

End Sub

Muchas gracias por su ayuda, saludos