Macro generates the following error: "run-time error 424 object required"

I am receiving the error listed above for the following script.

Sub PriceOnly()
Dim Wshell
Set Wshell = CreateObject("WScript.Shell")
Wshell.SendKeys "%x"
Application.Wait Now() + TimeValue("00:00:01")
Wshell.SendKeys "l"
Application.Wait Now() + TimeValue("00:00:01")
Wshell.SendKeys "{DOWN}"
Application.Wait Now() + TimeValue("00:00:01")
Wshell.SendKeys "{ENTER}"
Set Wshell = Nothing
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "PriceOnly2.vbs"
Set objShell = Nothing
End Sub

Any help would be appreciated.

Thanks,

Met