Prueba con esta macro, que te muestra un mensaje diciéndote el color de la celda activa.

Public Sub DimeTuColor()
' Sirve para conocer el código de color de la celda Activa
 Dim Color As Integer
 Dim Mensaje As String
   Color = ActiveCell.Interior.ColorIndex
   Mensaje = "El código del color de la celda activa es: " & Color 
   MsgBox Mensaje, vbOKOnly
End Sub

------
Ya sé Excel, pero necesito más, ahora también en PDF