Ошибка при получении объекта при запуске VB в Excel

Question

Когда я запускаю приведенную ниже программу с помощью Excel, я получаю сообщение об ошибке типа Требуемый объект

Sub Paste()

Set wshShell = CreateObject("WScript.shell")
Do
ret = wshShell.AppActivate("Choose File to Upload")
If ret = True Then
Script.Sleep (1000)
Dim wsh As Object
Set wsh = Create Object("W Script. Shell")
WScript. Sleep 1000
wsh.SendKeys "{tab}"
wsh.SendKeys "{tab}"
wsh.SendKeys "^v"
WScript. Sleep 1000
Exit Do
End If
Loop
Set wsh = Nothing
End Sub

Я ожидаю, что значение в моем буфере обмена необходимо вставить в диалоговое окно Выбор файла для загрузки