Should be:
.Selection.Font.Bold = .t.

To Calculate Totals the Example below will give you the idea.
*Calculate Totals for the entire column A:

lcRow=alltr(str(ObjExcel.ActiveSheet.UsedRange.Rows.Count+1))
lcRows2Calculate=alltr(str(ObjExcel.ActiveSheet.UsedRange.Rows.Count-1))
*Here Cells to Sum refer to their addresses relative to the Cell with Total
ObjExcel.Range("A"+lcRow).FormulaR1C1 = "=SUM(R[-"+lcrows2Calculate+"]C:R[-1]C)"


Hope this help.

>Hi Yuri,
>
>Thanks to YOU ,I got everything working on my excel sheet except the followings.
>
>*--- Need to make the font Bold and I tried
>
>
>With oExcel && oExcel is my App object
>
>.Range("D7").Select
>.Selection.Font.Bold = True && Got an error message here
>
>Endwith
>
>
>*-- Need to sum Q1 column data and store the total at the bottom of the column .
>
>HOW ?????
>
>I’m not very much familiar with VBA and I just tried to record some macros and get the syntax. Didn’t work out that good.
>
>Please Help !!!
>
>- Jeana -