Excel 2007 Macro w/ AppActivate = Run-time error '5': Invalid procedure call or argument

[Per Moeller-Olsen]

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

 

[Jacob Skaria]

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

 

[Per Moeller-Olsen]

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...

 

[Chip Pearson]

Why not just use

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


Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

 

[Per Moeller-Olsen]

So no need for AppActivate ReturnValue? Per...

Why not just use

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


Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)