>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"')