Ping Timeout Causing Application Hang

Good morning everybody! I've been using this piece of code to run a ping on a column of IP adresses and color the cells either green or red depending on the results. It works fine when I step through it using F8, however when it gets to an address that times out, it hangs the whole program for almost a full minute until it gets a result. Since this happens, when I try to run the script as intended, it hangs when it gets a timeout and does not recover. What I would like to do (or at least find out if it is possible or not) is a way to add a timer or adjust the timeout rate so it doesn't hang for so long. I will freely admit, I know very little about VBA scripting. Everything I know about VBA script, I have learned from trying to solve this problem. I've been searching all over for a solution to this and everything I find is either relatively complicated, or doesn't quite apply to what I'm trying to do. For reference, I am pinging printers on a network just to check connection status, and I would like to be able to send this spreadsheet to people and have them be able to run it without having to create additional files or anything too complicated. Is this possible or am I over-reaching on the capabilities of VBA?

Please Login or Register  to view this content.

Bump no response.

I just need ping status, I don't need the number of hops or anything else. I'm just looking to see if there is basic communication to the printers, and reporting that back with a green or red cell indicating success or failure.

Thank you very much for your response! Now, this is probably really easy but bear with me, how can I combine that with the cell coloring from the previous code?