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