Говорящий Excel. Как сделать, чтобы компьютер произносил то, что написано в ячейке

Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   Private Const SW_SHOWNORMAL = 1
  Sub Open_File(F_Name) 'Запуск файлов
 ShellExecute 0, vbNullString, F_Name, vbNullString, vbNullString, SW_SHOWNORMAL
    End Sub

Private Sub CommandButton1_Click()
'Копировать_в_Буфер
    Range("A1").Copy
    
'Проговорить текст из буфера
Open_File "C:\Govorilka_cp.exe -e24 -c" ' Не срабатывает
Open_File "C:\Govorilka_cp.exe"

End Sub

Sub tt()
    CreateObject("SAPI.SpVoice").Speak "Change range A1 Ok"
End Sub

Sub tt()
    CreateObject("SAPI.SpVoice").Speak Selection
End Sub

да
только правильнее использовать не shell (она не есть аналог ПУСК-ВЫПОЛНИТЬ),
а конструкцию

CreateObject("wscript.Shell").Run "команда"

например, чтобы открыть произвольный файл или гиперссылку:

CreateObject("wscript.Shell").Run """" & filename$ & """"