Macro so you can go to sleep

jbeaucaire said:

Sorry, this made me laugh so hard I had to give it a shot!

This macro will be hidden, so it can only be activated by typing the name of the macro into the Alt-F8 popup window. Or you can assign it to a button, but again, you'll have to manually type SleeperAgent into the Assign Macro dialog.

Code:

Option Explicit

Private Sub SleeperAgent()
Dim cnt As Long, Timer As String, ws As Worksheet, MyArr

cnt = Application.InputBox("How many times through?", "Loop Count", 200)
If cnt = False Then Exit Sub
On Error GoTo 0
MyArr = Array("00:00:01", "00:00:02", "00:00:03", "00:00:04")

Do
    For Each ws In Worksheets
        ws.Activate
        Timer = Int((3 - 1 + 1) * Rnd + 1) - 1    'random number between 1 and 3.
        Application.Wait (Now + TimeValue(MyArr(Timer)))
        ActiveWindow.SmallScroll Down:=Timer
        ActiveWindow.SmallScroll ToRight:=Timer
        Application.Wait (Now + TimeValue(MyArr(Timer)))
        Range("A1").Activate
        Randomize
    Next ws
    
    cnt = cnt - 1
    
Loop Until cnt = 0

Beep

End Sub

Hehe...shameless, dude, really shameless.

Click to expand...

sous2817 said:

Stepping through the code gives me a Run-time error '1004' on this line:

Code:

Range("A1").Activate

hi,
when it gets to the 2nd sheet. Works fine on the first sheet.

Click to expand...