Error Handling for speech module?

[SURFER349]

So I've got this code to talk to the user while the macro runs, to prevent them from clicking all over the place and crashing the program.

Sub UseSpeech() 'speech while macro runs. 
Application.Speech.Speak "Hello  " & Application.UserName & ".  Please wait about 10 seconds while the macro runs in the background.", SpeakAsync:=True
End Sub

So it works great on most computers, but some people are getting this error.

Run-time error '-214720096 (8004503a)
Method 'Speak' of object 'Speech' failed

I don't want to ask all these old people to update their dll's and objects. Can someone help me with syntax for an error handling that will skip if there's an error here?

 

[SURFER349]

So I think the easiest solution would be help on how to use error handling. Any tips? Is speech error different than other errors? What about just general error handling?

 

[shg]

So you want to continue to use the babbling computer? And do what when an error occurs -- ignore it?

 

[SURFER349]

So you want to continue to use the babbling computer? And do what when an error occurs -- ignore it?

yes. I don't see a good or clear path to implement a progress bar.

is it something as simple as

On Error Resume Next

 

[shg]

Yup.