If you use this a lot you can assign a keyboard shortcut to this sub so
you don't have to mouse the icon...
Sub Toggle_SpeakOnEnter()
With Application.Speech
.SpeakOnEnter = Not .SpeakOnEnter
End With 'Application.Speech
End Sub 'Toggle_SpeakOnEnter
I use Ctrl+Shift+N
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion