Try this code;
Sub Main
'This will search all routesegments in design for protected status
'if true it adds net to selection status then control "H" add highlight
'to selected nets "N" will remove highlight from all nets afetwards.
For Each objroute In ActiveDocument.RouteSegments
If objroute.protected = true Then objroute.net.selected = True
Next objroute
End Sub