>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() >... >>Thanx