Thank you very much for your answer.
I didn't mention the selection term is part of cell's content. Finally with this lines i have the desired result.

.
.
  With xlWS
       For idx = 1 To .UsedRange.Rows.Count
            If InStr(.Cells(idx, 2).Value, oRng) <> 0 Then
                    .Cells(idx, 4).Copy
                    GoTo 30
            End If
       Next idx
   MsgBox "Code not found"
   GoTo lbl_Exit
   End With
.
.