Indeed, I didn't mention the SubTotal function, but there are general guidelines, how to convert Excel Macros to VFP commands: what to do with defined constants, with named parameters, etc.

>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