VBAで待機処理を行う際のコード（DoEvents付）[No23]

VBAで待機処理を行う際のコードです。また、覚えておくと便利です。
関数化しています。このまま利用する際は引数をご指定下さい。
例：WaitTime("00:00:03")

Public Sub WaitTime(ByVal myTime As String)
    Dim tempWaitTime As Date
    tempWaitTime = Now + TimeValue(myTime)
    
    DoEvents
    Application.Wait tempWaitTime
    DoEvents
End Sub

最後までお付き合いいただきありがとうございます！

この情報が誰かの役にたてれば幸いです。