>#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.