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" <HickoryShade.1zxjxz_1134396005.27@excelforum-nospam.com>
wrote in message
news:HickoryShade.1zxjxz_1134396005.27@excelforum-nospam.com...
>
> 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
>