>>988
基本はこうだけど、このままだとタイマーを仕掛けたのを忘れてて、ほかの作業をしてる時に急にEnterが押されてびっくりすると思うよ

Sub n時間後にEnterを押す()
　　n = 1　'n時間を指定
　　n時間後 = Now + TimeValue(n & ":00:00")　'n時間後が何時何分か計算する
　　Do
　　　　DoEvents
　　Loop Until Now >= n時間後　'n時間誤まで待つ
　　SendKeys "~"　'Enterを押す
End Sub