10:49 am Commented On a hand uploaded by g3tr3ktm8

Public Sub TwoRandomMinutes() Static dEnd As Double If dEnd = 0 Then dEnd = Now() + TimeSerial(4, 2, 0) If Now <= dEnd Then Range("A1").Value = Int(Rnd * 100) + 1 Application.OnTime Now() + TimeSerial(0, 0, 2), _ "TwoRandomMinutes" Else dEnd = 0 End If End Sub

8:31 am Uploaded hand

11:01 pm Uploaded hand

2:26 am Uploaded hand

12:12 am Uploaded hand

10:29 pm Uploaded hand

10:29 pm Uploaded hand

1:09 am Uploaded hand

12:36 pm Uploaded hand

3:31 pm Uploaded hand

6:06 pm Uploaded hand

9:53 pm Uploaded hand

1:33 am Uploaded hand

1:29 am Uploaded hand

1:44 pm Uploaded hand

10:49 am Uploaded hand

2:51 pm Uploaded hand

9:08 am Uploaded hand

9:44 pm Uploaded hand

6:59 pm Uploaded hand

6:57 pm Uploaded hand

6:48 pm Uploaded hand

6:40 pm Uploaded hand

6:31 pm Uploaded hand

7:29 am Uploaded hand

7:15 am Uploaded hand

6:26 am Uploaded hand

6:26 am Uploaded hand

1:47 am Uploaded hand

12:06 am Uploaded hand