With these two lines

On Error Resume Next
AppActivate ReturnValue

rather than just this one

AppActivate ReturnValue

no errors displayed any longer & the stuff is running. It's a little hacked
I think?

I tried your suggestion, did not make any difference as far as I could tell.

Per...

"Jacob Skaria" wrote in message
...
If you are looking to have the focus on the command window try;

Dim ReturnValue
ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t",
vbNormalFocus)

If this post helps click Yes
---------------
Jacob Skaria


"Per Moeller-Olsen" wrote:

Greetings,

Any clue why we get this in an Excel 2007 macro, see below.

Run-time error '5': Invalid procedure call or argument

when running the macro below. The ping starts & runs fine, it's just we
get
the error message?

Per...

Sub X_x()
'
' X_x Macro
'
' Keyboard Shortcut: Ctrl+x
'
Dim ReturnValue
ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t")
AppActivate ReturnValue
End Sub