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