Sub Ping() pingDestination = (Range("A1").Value) Shell ("cmd /k ping " & pingDestination)End Sub
כמו שאתה יכול להבין, זה פותח חלון CMD שנותן Ping לערך שבתא A1.
בהצלחה.