Belirlenen aralıkta kalan ip lerin silinmesi

[karzer]

Merhaba, aşğıdaki makroya 10.0.0.0 dan 10.0.0.255 e kadar olan ip leri silecek şekilde nasıl ayarlaya bilirim.
Yardımlarınız için teşekkürederim.

If UCase(Target.Value) = "TEMIZLE" Then
    z = Application.PathSeparator
    Shell "C:" & z & "windows" & z & "system32" & z & "PsExec.exe \\hostname cmd /k route delete 10.0.0.2  & exit", vbNormalFocus
End If