try putting code in like this at the point where you need a break in the cod

Dim Start as Varian


Start = Time
Do While Timer < Start + 5 ' make the 5 larger if you need more tim
DoEvents ' Yield to other processes
Loo