On Apr 8, 1:44*pm, Sam wrote:
I have a rather long code that essentially loops through two workbooks and
copies indicated data from one to another. Everything works fine when I use a
break to view the results for each item in the loop, but I get undesirable
results when I remove the break.

How can I program a short pause (about 1 second) prior to "Next" in my loop?

Thanks,

Sam

Dim PauseTime, StartTime

PauseTime = 1 ' Set duration (seconds)
StartTime = Timer ' Set start time.
Do While Timer < StartTime + PauseTime
'do nothing
Loop

'Continue with code


HTH

Chris