エクセルマクロを教えてください

質問

下記のマクロを動かすことはできるのですが、
処理が実行されると、コマンドプロンプト画面が表示されてしまいます。

自分でも色々調べたのですが、どうしてもわからないです。

どこを修正したらコマンドプロンプトが表示されずに、
処理が実行されるのか教えてください。

動作環境
OS：Windows7
アプリ：Excel2003、2010

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub ping送信
　　Dim objWSH As Object, oEx As Object
　　Dim i As Integer
　　Dim sCmd As String
　　Dim sResult As String

　　Set objWSH = CreateObject("WScript.Shell")

　　For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
　　　　sCmd = "%ComSpec% /c ping -n 1 " & Cells(i, 1)
　　　　Set oEx = objWSH.Exec(sCmd)

　　　　Do While oEx.Status = 0
　　　　　　DoEvents
　　　　Loop
　　　　sResult = oEx.StdOut.ReadAll

　　　　If InStr(sResult, "ラウンド トリップの概算時間") = 0 Then
　　　　　　Cells(i, 1).Interior.ColorIndex = 3
　　　　Else
　　　　　　Cells(i, 1).Interior.ColorIndex = 4
　　　　End If
　　Next
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

回答No.1

notnot · ベストアンサー

コマンドプロンプトを起動しているのでコマンドプロンプトを表示させないのは無理です。
sCmd = "%ComSpec% /c ping -n 1 " & Cells(i, 1)
を
sCmd = "ping -n 1 " & Cells(i, 1)
に変えたとしても、pingはコンソールコマンドなので、必ずコマンドプロンプト経由で実行されます。