Mohammed;

When you resolve the immediate problem at hand it would be interesting to replace the Do While with Scan. According to testing I have done on large tables you may see upto a 15% improvement in speed. That may or may not be of any value but it could be worth a try.

Tom