Sub ABC()
Range("B9").Select
Application.Speech.Speak ActiveCell.Text
End Sub


Assumes you have the speech capabilities configured.

--
Regards,
Tom Ogilvy


"James A" wrote in message
...
How to create a macro to select a call and execute the text to play
function.
--
James A