CLOSE all SET TALK OFF SET ECHO OFF SET SAFETY OFF thisform.text3.SetFocus USE homecomm1 excl zap SELECT 0 USE newcomm66 EXCL SET DELETED on INDEX ON VAL(char2) TO hh set order to "hh" lnTotalCopied = 0 FOR i = 1 TO (thisform.text3.Value) && assume 20 values for flag lnTotalNeedingCopy = (thisform.text3.Value * i) - lnTotalCopied SEEK i COPY TO temp2 NEXT (lnTotalNeedingCopy) WHILE VAL(char2) = i lnTotalCopied = lnTotalCopied + _Tally SEEK i DELETE NEXT (lnTotalNeedingCopy) WHILE VAL(char2) = i SELECT homecomm1 APPEND FROM temp2 SELECT newcomm66 NEXT delete&&the proplem thisform.text3.SetFocus CLOSE ALL use homecomm1 excl BROWSEthanks.