loExcel.Range([A1], loExcel.Selection.SpecialCells(xlLastCell)).Select loExcel.Selection.FormatConditions.Delete loExcel.Selection.FormatConditions.Add(xlExpression,, '=Left($A1,7)="TOTALS:"') With loExcel.Selection.FormatConditions(1) .Font.Bold = .T. .Interior.ColorIndex = 4 EndwithHowever, the question about saving and saving format is asked. How should I get rid of it?