Exit a running macro elegantly

I have produced the following macro which schrolls a worksheet up and then down the screen a set number of times (3 in the following example). However, there are times when I want to exit this macro before the macro has completed its run. Pressing the Escape key produces the usual error/debub message box - not very elegant. Can anyone help me to stop the macro when hitting the escape key without getting this error/debug message?

Sub Scroll()

Sheets("Summary").Select 'applies macro to Summary sheet only

Dim x As Single
Dim Arr As Variant
Dim Lr As Long, i As Long, j As Long, k As Long, sec As Long, z As Long

Lr = Cells(Rows.Count, "B").End(xlUp).Row - 19 'originally "1" but then it scrolled too far
Arr = Array(1, -1) 'set up array containing 2 values to control direction of scroll (up or down)
j = 0 'initialise scroll count
k = 3 ' number of times the scores scroll down and up
sec = 3 'pause (in seconds) before scrolling next row

Range("A6").Select 'moves cursor to first unfrozen row

Do
For z = 0 To UBound(Arr)
For i = 1 To Lr
ActiveWindow.SmallScroll Down:=Arr(z)
x = Timer
While Timer - x < sec 'number of seconds pause (approx)
Wend 'repear while procedure until Timer condition met
Next i
Next z
j = j + 1
Loop Until j = k 'number of times scroll down and up
End Sub

Please Login or Register  to view this content.

Many thanks for your help.