Como trabajar color de una celda por macro

[papasfritas]

Hola tengo unos archivos con diferentes numeros de columnas, lo q tienen igual es el color de los encabezados de celdas q son todos los conceptos de percepciones de un color y deducciones de otro, de acuerdo al color necesito ponerle q concatene al titulo de la columna una "p" si es percepcion y una "d" si es deduccion, espero me puedan ayudar a resolver esto. Gracias

 

[galileogali]

SUB TEST()
Dim cel as range
For each cel in Range("1:1")

IF cel.interior.colorindex = 6 then

cel.value = cel.value & "p"

else
celvalue = cel.value & "d"
End iF
Next cel

END SUB

Esto seria un esquema muy basico.

GALILEOGALI