Query hangup

Occasionally my macro hangs.  I believe it is in this code but since the only way to spot the hang is to task manager kill the job, I can't be sure.  Is there a way to return to my code after a time ...