Hi Dave,
Thanks for that reply. Still, I would like to use a button on the -Quick
Access Toolbar- instead of a key stroke to stop the running macro. I tried
assigning the below to icon on the -Quick Access Toolbar- but while the
SlideShow() is running clicking seems to be disabled. Maybe I need an Event
Procedure?

Sub StopMacro()

Application.SendKeys ("^{BREAK}")

End Sub




"Dave Peterson" wrote:

Take a look at EnableCancelKey in VBA's help.

You can tell your code how to handle that escape key.

h2fcell wrote:

Hello,
I have a button on the €œQuick Access Toolbar€� of an Excel 2007 workbook that
starts a slide show and loops through 8 sheets continuously until a linked
cell equals 39. I would like to add another button to the €œQuick Access
Toolbar€� that stops the running slide show like Ctrl-Break does without the
Visual Basic window popping up with the message €œCode execution has been
interrupted€�.

Any suggestions?

Below is my code.

Sub SlideShow()

Worksheets(Array(1, 2, 3, 4, 5, 6, 7, 8)).Select
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False 'Remove Row & Column headings
Application.DisplayFormulaBar = False
Do While Worksheets("TOTAL").Range("C42").Value < 39
Refresh
Sheets("Sheet1").Select
Range("A1").Select
Pause
Refresh
Sheets("Sheet2").Select
Range("A1").Select
Pause
Refresh
Sheets("Sheet3").Select
Range("A1").Select
Pause
Refresh
Sheets("Sheet4").Select
Range("A1").Select
Pause
Refresh
Sheets("Sheet5").Select
Range("A1").Select
Pause
Refresh
Sheets("Sheet6").Select
Range("A1").Select
Pause
Refresh
Sheets("Sheet7").Select
Range("A1").Select
Pause
Refresh
Sheets("TOTAL").Select
Range("A1").Select
Pause
Loop

End Sub

--

Dave Peterson