Can anybody tell me why the following code compiles and executes, yet I get no result?



lcLastCell = oExcel.ActiveCell.SpecialCells(xlLastCell).Address()
oExcel.Range("B9:" + lcLastCell).Select

oExcel.Selection.FormatConditions.Delete
oExcel.Selection.FormatConditions.Add(xlformula,'=RIGHT($B9,5)="Total"')

With oExcel.Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
EndWith

With oExcel.Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
ENDWITH



Thanks in advance for any suggestions!

Andrew