Ok, now this code works (don't know why it didn't before):

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
Endwith

However, the question about saving and saving format is asked. How should I get rid of it?

Thanks.