Sorry but I can't see the subtotal function used in your artikel. Maybe I am blind (at least that's what my wife thinks)
If I can use the sutotal in excel I don't have to write things by line and add the subtotals

Peter


>I think that if you read my introductory article about Excel Automation, most of your doubts will be solved.
>
>http://www.utmag.com/wconnect/wc.dll?9,7,10,1562
>
>>How can I do the following in VFP:
>>

>> Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _
>>        Replace:=True, PageBreaks:=True, SummaryBelowData:=True
>>

>>I have
>>
>>

>>
>>oExcel=CREATEOBJECT("Excel.Application")
>>oExcel.visible= .T.
>>
>>oW=oExcel.Workbooks.Add(lcTemplate)
>>ow.Worksheets[1].select
>>
>>oRange = oExcel.ActiveSheet.Range("A7:F"+TRANSFORM(6+lnRecCount))
>>
>>oExcel.ActiveSheet.paste(oRange)
>>** now I want excel to subtotal by column a
>>
>>
>> ****Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _
>>        Replace:=True, PageBreaks:=True, SummaryBelowData:=True
>>

>>
>>
>>Thanks alot
>>
>>
>>Peter