Active Ping from within Excel using data from spreadsheet

[Turbo68]

First off thanks for looking. What I am wanting to do is to click a button marcro to check a ping from the internet by using some data in a field inside the spreadsheet.

I already know this will do the DOS window and check that ping:

RetVal = Shell("PING ""Yahoo.com""", 1)

What I am needing this to do is replace the ""Yahoo.com" with my ip address that part of it will be found in cell A2 in my spreadsheet. My IP will be some thing like this. 25.XX.XX.200 the XX's will need to be grabbed from the cell A2 which would contain the following.

A
2 7879


So the macro would actually ping 25.78.79.200.

All i need is to see the window open... hit that IP and it will let me know if that is online or not...then close.

Any help would be greatly appreciated !

[AndyLitch]

Is the first number always a single digit?

[Turbo68]

Sorry, but that was my terrible attempt to show cell A2. lol

To be more clear the "25" in the IP will be constant and then it will need to grab the "78" from the 4 digit number and the set the "." and then grab the "79" and then go to ping.

[AndyLitch]

Please Login or Register  to view this content.