>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

Andrew,
I assume xlformula is meant to be xlexpression constant. Your parameters are wrong (2nd parameter which you should omit is missing) :
Add(xlformula,,'=RIGHT($B9,5)="Total"')
Cetin