Private Sub Worksheet_Calculate()
With Application.Speech
Select Case Range("A1")
Case Is = 1: .Speak
ThisWorkbook.Sheets("Speech").Range("A1").value
Case Is = 2: .Speak
ThisWorkbook.Sheets("Speech").Range("A2").value
End Select
End With
End Sub

Tim


wrote in message
ups.com...
Thank you Tim. Unfortunately, I'm not very proficient with macros.
I'm not sure how you intend your suggestion to be placed, assuming you
intended to place it within my current macro. Can you be more
specific? Thanks.

application.Speech.Speak activesheet.range("C2").value

Private Sub Worksheet_Calculate()
With Application.Speech
Select Case Range("A1")
Case Is = 1: .Speak "If A1 has a returned value of 1, then
this text is made audible."
Case Is = 2: .Speak "If A1 has a value of 2, then this text is
spoken by the computer."
End Select
End With
End Sub- Hide quoted text -