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