何秒後、何分後かにアプリが停止するときなどにに使えます。

セルの書式設定を「時刻」に設定してください。

------------------------

Option Explicit

Private Sub CommandButton1_Click()
'ここでは5秒経過後に処理（時間を表示）する
Dim waitTime As Variant

Range("C1").Value = ""

waitTime = Now + TimeValue("0:00:05")
Application.Wait waitTime

Range("C1").Value = Now

End Sub

----------------------------