Frncis
Member
I have used Application.Speech.Speak in the current application & it has always worked. This batch of code does not work & I am at a loss for a reason. I don't see anything wrong, I am hoping that the brains here, find the problem. Here is the line of non-working code.
The other part of the code does work. Here is the entire code:
Application.Speech.Speak "Click. Vocational Asstistance. Update Button. and verify that the name was entered. If it was entered. Click yes. for the appropriate service. ", SpeakAsync:=True
The other part of the code does work. Here is the entire code:
Code:
Option Explicit
' The user is notified to take appropriate action, when VR is entered in column N.
Set KeyCells = Range("N3:N329")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Application.Speech.Speak "Click. Vocational Asstistance. Update Button. and verify that the name was entered. If it was entered. Click yes. for the appropriate service. ", SpeakAsync:=True
Application.Wait (Now + TimeValue("00:00:1"))
VBA.MsgBox "Click Voc Asst Update Button, & verify that name was entered. If entered, Click yes for the appropriate service.", vbOKOnly + vbInformation, _
"Vocational Services Reminder"
Worksheets("VOC_ASST").Select
'Finds the next empty cell in Name column.
Worksheets("VOC_ASST").Select
ActiveSheet.Range("A4:A296").Find("").Select
Exit Sub
End If
End Sub