Makroma döngü ekleme Yardım!

[karzer]

If UCase(Target.Value) = "REMOVE" Then
    z = Application.PathSeparator
    Shell "C:" & z & "windows" & z & "system32" & z & 
"PsExec.exe \\HOST  cmd /k route delete 10.0.0.10  & exit"
End If

Bu ifadeye

FOR /L %%G IN (1,1,255) DO route delete 10.0.0.%%G

döngüsü nasıl eklene bilir.

Yani netwokünde bulunan bütün ip leri silecek şekilde yapmak istiyorum.

Teşekkür ederim.