not quite there- can I be offered a 2 second window to populate A1, and if I do nothing the macro should resume after 2 seconds ?
Dim d As Date
d = DateAdd("s", 2, Now)
Do Until d < Now
DoEvents
Loop
Try:
Code:Dim d As Date d = DateAdd("s", 2, Now) Do Until d < Now DoEvents Loop
If "somebutton" is pushed
then goto "pause-DoEvents-part"