>>I don't know, I get them by simple using MsgBox(xlByRows) in Excel Macro Editor :o)
>>I'am just working for search and fromat row when found. When I finish, I'll let you know. After that I'll try Cetin's code. I am sure it is working somehow :o)
>
>I don't know, this conditional formatting was not saved for me. E.g. when I made Excel visible I saw the formatting for that column, but after I closed the file the formatting was gone. The REPLACE works fine, e.g. it changes formatting of the TOTALS word just fine. May be it's an easier approach?

You must save the file before you close it

Here what I invent :o)

#define xlLastCell    11
#define xlPart         2
#define xlByRows       1
#define xlValues       -4163
LOCAL oExcel AS Excel.Application
oExcel = CREATEOBJECT([Excel.Application])
oExcel.Visible = .t.
oExcel.Workbooks.Open([d:\book1.xls])
oExcel.Range([A1]).Select
LOCAL oFind, oFirstAddress
WITH oExcel.Range([A1],oExcel.Selection.SpecialCells(xlLastCell))
    oFind = .Find([Total],,xlValues)
    IF NOT ISNULL(oFind)
       oFirstAddress = oFind.Address
       DO WHILE NOT ISNULL(oFind)
          ? oFind.Address
          oFind = .FindNext(oFind)
          lnRow = INT(VAL(SUBSTR(oFind.Address,RAT([$],oFind.Address)+1)))
          oExcel.Rows(lnRow).Select
          WITH oExcel.Selection
               .Font.Bold = .t.
          ENDWITH
          IF oFind.Address == oFirstAddress
             EXIT
          ENDIF
       ENDDO
    ENDIF
ENDWITH
oExcel.Save([d:\books.xls])