Excel 2007 Macro w/ AppActivate = Run-time error '5': Invalid proc
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
|