Nice code.
But if you see something goes wrong, trying to catch the error can do miracles:
 Code:
$Catch = $objselection.Hyperlinks.add($objSelection.Range,"http://test","","","http://test","")
If @ERROR
	? @ERROR ": " @SERROR
EndIf