Hello All,

The following code gives me an error "Function name is missing )" on the line where I try to invoke the FindNext function. I suspect it is the VARIANT after: in the clause that needs to be tweaked somehow, but I haven't been able to determine how.

Any suggestions welcome!

oExcel.Range("F8").Select
oExcel.Selection.End(xlDown).Select
oExcel.SendKeys("{DOWN}")
foundcell = oExcel.ActiveSheet.Cells.Find("=SUBTOTAL(9,E")
DO WHILE .t.
 oExcel.Range(foundcell.address).select
* oExcel.SendKeys("{RIGHT}{RIGHT}")
 oExcel.ActiveCell.OffSet(0,3).FormulaR1C1 = "=RC[-1]/RC[-3]"
 
 foundcell = oExcel.Range.FindNext(after:=oExcel.ActiveCell)
 IF ISNULL(foundcell)
   EXIT 
 ENDIF 

ENDDO