how to Interrupt text to speech run from word
 

I have followed the instructions he
http://support.microsoft.com/default...b;EN-US;287120

to make a word macro which reads text aloud. This is great because unlike
Excel, it can read while you switch windows. The problem is that if you have
it reading a giant block of text, I can't find a way to get it to stop
without going to task manager and shutting the program down.

Is there some code I can add in that will allow me to stop it?

-------------

the VB is:

Sub TTS()
'Declare and create an Excel object.
Dim XL_tts As Excel.Application
Set XL_tts = CreateObject("Excel.Application")
XL_tts.Speech.Speak Selection
XL_tts.Quit
Set XL_tts = Nothing
End Sub