If you don't want to have to use a function, you could just fake it like this.

Code:

For $I=2 to 464
   $keepLooping = 1
   For $J=2 to 453
      if $keepLooping
         $VS = $oXL.Cells($I,3).Value
         $VY = $oYL.Cells($J,1).Value
         If $VS=$VY
            $oXL.Cells($I,6).Value=$oYL.Cells($J,4).Value
            $oXL.Cells($I,4).Value=$oYL.Cells($J,2).Value
            $keepLooping = 0
         EndIF
      endif
   Next
Next
_________________________
Eric