エクセルの一部のマクロを待機させるには？

質問

ブックＡでマクロを使用して２０秒間隔で計算処理をしています。
条件に適合する場合、ブックＢに値を転送し、Webbrowserを使用してＷｅｂ上に値の入力をするマクロを組んでいます。
（イメージはこんな感じです↓訳あってブックが２つになってしまいました）

ブックＡ
if cells(t,1)="仕入れ"　then
　Application.Run Workbooks("B").Name & "!module1.在庫"
　xxxx
if cells(t.2)="残り少ない” then
　Application.Run Workbooks("B").Name & "!module1.発注"

この時、ブックＢのマクロが動いている途中に（webにアクセスし入力している途中に）、ブックＡの次の処理が実行され上手くいきません。
処理待ちができていない状態です。

↑のxxxxの部分に
Private Sub まつ()
Application.Wait Time:=Now + TimeValue("00:00:10")
End Sub
を入力したら、ブックＢのマクロまで待機してしまい、手に負えません。
どなたか解決方法を教えて頂けないでしょうか？

回答No.1

yyr446

Sub wait()
PauseTime = 3
Start = Timer
Do While (Timer < Start + PauseTime)
DoEvents
Loop
MsgBox ("3秒待った")
End Sub
で待てば、少なくともブックBのマクロは止まらない
と思うのですが。

お礼

本当にありがとうございました。