foundcell = oExcel.Range.FindNext(oExcel.ActiveCell)
>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.>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 >