lox=getobject(,'excel.application')
loSh = lox.Workbooks(1).Sheets(1)
do while .T.
   loCell = losh.cells.find('Total')
   if isnull(loCell)
      exit
   Endif
   loCell.value = 'SubTotal'
Enddo

>Hi,
>
>I have open an Excel Worksheet in VFP9 and I want to
>find all the cells with the value of "Total" and replace it with "SubTotal:"
>
>How can I do it ?
>
>Please advise.
>
>Regards,
>Derek Yim