Dim cell as Range
for each cell in ThisWorkbook.Worksheets("Sheet1").Range("A1:A25")
Shell ("ping.exe -t " & Cell.Value), vbNormalFocus
Next

but not sure what shelling a ping is going to do for your.

--
Regards,
Tom Ogilvy


"HickoryShade"
wrote in message
...

I have a 25 page excel workbook that contains specific network equipment
for 25 remote sites. I have saved it as a web page. Question: Is there a
way to ping each network device from the web page. I have used:

Shell ("ping.exe -t " & ActiveCell.Value), vbNormalFocus

but I'm not to sure how to link an active cell (which there is no
active cell on a web page).

Any insight on this would be greatly appreciated....TIA..


--
HickoryShade
------------------------------------------------------------------------
HickoryShade's Profile:
http://www.excelforum.com/member.php...fo&userid=2667
View this thread: http://www.excelforum.com/showthread...hreadid=492700