>oExcel=CREATEOBJECT("Excel.Application")
>nARow= 2
>cRange= "A"+ AllTrim(Str(nARow))
>Use "Z:\ARMN\DATA\XTESTS" Alias X12 in 0 Shared
>Select X12
>With oExcel
>  .WorkBooks.Open(cMainTemp)
>  .ActiveWorkBook.SaveAs(cToSaveAs)
>  .DisplayAlerts= .F.
>  Scan
>   .Sheets("Testing").Select()
>   nMaxRows= .ActiveWorkBook.ActiveSheet.Rows.Count
>   Do While nARow < nMaxRows
>      Wait Window NoWait AllTrim(Str(nARow))
>      nARow= nARow+ 1
>      cRange= "A"+ AllTrim(Str(nARow))
>      .Range(cRange).Select()
>      If AllTrim(.Range(cRange).Value)= AllTrim(X12.Submitter)
>         cRanges= "B"+AllTrim(Str(nARow))
>         cRanget= "C"+AllTrim(Str(nARow))
>         cRangep= "H"+AllTrim(Str(nARow))
>*** I get an error on the next line
>**** Subscript Out of Range (6875) (maxrows= 65536)
>         .Range(cRanges).Value= AllTrim(X12.Schddate)
>         .Range(cRanget).Value= AllTrim(X12.TestDate)
>         .Range(cRangep).Value= AllTrim(X12.Passeddate)
>      EndIf
>   EndDo
>   .Sheets("Arkansas Enrollment").Select()
>...
>