Code execution has been interrupted

[pujo]

Morning all.
I am using a bit of code to scroll through a sheet. It run in a loop and to stop it, I just press escape.
How can I suppress the popup alert "Code execution has been interrupted"?

Application.DisplayAlerts = False does not work...

Here's the vba:

Sub SlowScroll()
Application.DisplayAlerts = False
On Error Resume Next
    Dim r As Long
    Range("B8").Select
    Do
        DoEvents
        Sleep 2000   'Pause 2 seconds - Scroll speed adjust
        ActiveWindow.SmallScroll Down:=5
        r = r + 1
        If r = 50 Then Range("B8").Select: r = 0
    Loop
    
  On Error GoTo 0
End Sub

Thanks,
PuJo

 

[decadence]

Can you specify what you are trying to do as the code you have is in an infinite loop.

 

[steve the fish]

You could assign these two macros to two buttons at the top of the sheet. Use freeze panes else they will disappear!

Dim cancel As Boolean

Sub Stopping()

cancel = True

End Sub

Sub Starting()

Dim r As Long

cancel = False
Range("B8").Select
Do
    If cancel = True Then Exit Sub
    DoEvents
    Application.Wait (Now + TimeValue("0:00:02"))     'Pause 2 seconds - Scroll speed adjust
    ActiveWindow.SmallScroll Down:=5
    r = r + 1
    If r = 50 Then Range("B8").Select
Loop

End Sub

 

[pujo]

decadence,
I am trying to automate scrolling down a page.

Here is the deal. The worksheet is the stands for a fishing tournament.
At the end of the tournament, I want the page to scroll from top to bottom in an infinite loop as there is a separate monitor for viewers to look at.
The code works as I had it however when I stop the macro by pressing {esc} I get that "Code execution has been interrupted" popup message.
As I will not always be using the spreadsheet, other users will freak out when they see the error message. So if I can just get the message suppressed I would be happy unless there is a better way to it.

Thanks,
PuJo