VBA: Upon cell selecion use Speech.Speak

[bamaisgreat]

My goal here is to have it were when someone clicks say A4 the code below is executed:

Application.Speech.Speak "Enter your full name"

I will have several different cells and have it saying several different things.

 

[VoG]

Try like this in the sheet's code module. You can expand the Case statement to add other cells

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Address(False, False)
    Case "A4": Application.Speech.Speak "Enter your full name"
End Select
End Sub

 

[bamaisgreat]

Peter how do I go about making this speak in Spanish and English. Thanks as always

 

[VoG]

I cannot find a method to do this other than

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Address(False, False)
    Case "A4": Application.Speech.Speak "Enter your full name": Application.Speech.Speak "Ingrese su nombre completo"
End Select
End Sub

Maybe somebody who has more knowledge of the speech engine knows?

 

[bamaisgreat]

ok that sounds good. Thanks

 

[bamaisgreat]

I think im going to use the code in a User Form. Could you show me how the code would need to look ? I will be using it on text boxes and combo boxes. Thanks

 

[VoG]

Something like this should work

Application.Speech.Speak UserForm1.textbox1.Value