[megaloman]

Похоже, во всём виноват Windows. Проверил на Win XP, 2003 -работает. Win 2000 (у меня сервер) - увы. Там пинг по любому выдаёт ErrorLevel=0. Ни мой макрос, никакой батник с ping-ом и дальнейшей проверкой на ErrorLevel там работать не будут.

Если во время пингования я закрою окошко cmd командной строки (т.е. просто нажимаю крестик), то результат везде Err.

- это как раз свидетельствует о том, что макрос отрабатывает, просто пинг не выдаёт ErrorLevel<>0 при отсутствии ответа.
Попробуйте запустить вот такой батник для имеющегося адреса и отсутствующего. Подозреваю, ErrorLevel в обоих случаях = 0

Код:

@Echo Off 
Cls
Set ip=192.168.0.5

ping %ip%
Echo ---------------------------------
echo %ip%  ErrorLevel=%ErrorLevel%
Echo ---------------------------------
Pause

А уровень безопасности лучше сделать средний- чтобы Excel спросил, отключить макрос или нет.