With UDF

http://cjoint.com/?fpvoz8csOq

Function couleurFondTexte()
Application.Volatile
Select Case Range(Application.Caller.Address).Interior.ColorIn dex
Case 3
couleurFondTexte = "Red"
Case 4
couleurFondTexte = "Green"
Case 6
couleurFondTexte = "Yellow"
Case Else
couleurFondTexte = "???"
End Select
End Function

JB
http://boisgontierjacques.free.fr



On 15 mai, 05:32, Tricia wrote:
I have a list and was wondering how to do this:

I want to insert a certain word at the beginning of the paragraph in each
cell that has red font. *A different word for blue font, yellow font etc. *If
the font colour thing is no good, I could make the cell background different
colours.