Can someone write a macro that will read string text results from a
designated cell (A1) instead of having to rely on macro dictated text
such as in the sample below?

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