>>Sample:
>>

>>  .FormatConditions.Delete
>>  .FormatConditions.Add(xlExpression,, '=Left($D2,5)="Sales"')
>>  With .FormatConditions(1)
>>    .Font.Bold = .T.
>>    .Interior.ColorIndex = 4
>>  Endwith
>>

Cetin
>
>Great! It will never comes to my mind :o))
>You just have a little typo here, or maybe it is not a typo but it depends what list separator you set in Regional settings? but I think it should be:
>
>

>*********************************************  |
>.FormatConditions.Add(xlExpression,, '=Left($D2;5)="Sales"')
>

Boris,
It is not a typo. I don't use European list separator but USA settings.
Cetin