You first have to install the speech feature. Right-click in any button bar
and select Text To Speech. If it hasn't been installed, a message box will
tell you so and ask if you want to install it. Follow directions from
there.
Once it's installed, copy the first macro below to the sheet module if you
want this to work on only one sheet, or copy the second macro to the
Workbook module if you want it to speak what you put in any cell in any
sheet. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.Speech.Speak Target.Value
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.Speech.Speak Target.Value
End Sub