OneHourTimer Sub OneHourTimer For i = 1 To 2 Set wsShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 25*60*1000 MsgBox "Done for Step [ " & i & " ],take a 5 mins break~!","Break Reminder" WScript.Sleep 5*60*1000 MsgBox "Ready to go on the next step ? ","Continue Working" Next WScript.Quit MsgBox "亲~!" & vbcrlf & vbcrlf &"You have been working for ONE-HOUR,please take a 15 mins break,and then start another session~~!","Kindly Reminder" End Sub