#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 EndWithBut I couldnt made it works with whole selection and IF the cell contains [Total] not just equal to it.