暂停macros,编辑工作表和不用button继续

我有一个macros需要运行许多工作簿。 有一部分虽然我在哪里更新连接string的唯一值段,显然这不能在VBA中完成,所以我必须手动做到这一点。 有没有一种方法,我可以让macros做它做的,然后暂停,而我更新连接string说30秒,然后再次开始运行完成? 谢谢,

这是一个macros,可以让你30秒来进行更改,然后恢复操作:

Sub dural() 'first part 'do stuff MsgBox "Perform updates" t1 = Now While Now < t1 + TimeSerial(0, 0, 30) DoEvents Wend MsgBox "Resuming the second part of the macro" 'macro does more stuff End Sub 

DoEvents使得焦点可以与用户共享。