Option Explicit
'Tools > References and [x] Microsoft Speech Object Library.
Sub ExcelSpeak()
Call Speak("Hi! How are you, today?", "female")
Application.Wait Now() + TimeValue("0:0:01")
Call Speak("Hi! Glad to see you!", "male")
End Sub
Sub Speak(say As String, Optional gender...