g3tr3ktm8
User has not written about themselves yet.
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
9811:01 pm Uploaded hand
T92:26 am Uploaded hand
AA12:12 am Uploaded hand
3510:29 pm Uploaded hand
8810:29 pm Uploaded hand
JA1:09 am Uploaded hand
KT12:36 pm Uploaded hand
483:31 pm Uploaded hand
6Q