>>That is what I understand, but I can format only the rows with [Total] not the numbers :o)
>
>What can you do and how? E.g. show some code.

#define xlLastCell    11
#define xlCellValue    1
#define xlEqual        3

LOCAL oExcel AS Excel.Application
oExcel = CREATEOBJECT([Excel.Application])

oExcel.Workbooks.Open([d:\book1.xls])
oExcel.Visible = .t.
oExcel.Range([A1],;
             oExcel.Selection.SpecialCells(xlLastCell)).Select
oExcel.Selection.FormatConditions.Delete
oExcel.Selection.FormatConditions.Add(xlCellValue, xlEqual,"Total")
With oExcel.Selection.FormatConditions(1).Font
     .Bold = 1
     .Italic = 0
     .Strikethrough = 0
EndWith

But I couldnt made it works with whole selection and IF the cell contains [Total] not just equal to it.