> with loSheet.range(m.lcRange).Interior > .ColorIndex = 33 && Blue Color > .pattern = xlSolid > .PatternColorIndex = xlAutomatic > endwith > endif > >** Made the Totals row in bold and Green highlight > loExcel.range([A1], loExcel.selection.SpecialCells(xlLastCell)).select > loExcel.selection.FormatConditions.delete > loExcel.selection.FormatConditions.add(xlExpression,, '=UPPER(Left($A1,5))="TOTAL"') > > with loExcel.selection.FormatConditions(1) > .font.Bold = .t. > .Interior.ColorIndex = 4 > endwith>
loExcel.range([A1]).Selectnot tested at all