Hi all

I have the following that does what it is supposed to.

For Each PoNo In OutRng
If PoNo = "" Then Exit Sub
Set PoNoFound = InRng.Find(What:=PoNo, After:=lastCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not PoNoFound Is Nothing Then
PoNoFound.Offset(0, 14).Value = PoNo.Offset(0, 7).Value
End If
Next

But! I have been asked to trim off the leading string value and only retain the last 3 only.


For Each PoNo In OutRng
If PoNo = "" Then Exit Sub
Set PoNoFound = InRng.Find(What:=PoNo, After:=lastCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not PoNoFound Is Nothing Then
PoNoFound.Offset(0, 14).Value = Left((PoNo.Offset(0, 7)), 3).Value
End If
Next

But it does not like "Left((PoNo.Offset(0, 7)), 3).Value" stating ""Object required"

Appreciate any assistance, as always:

Heaps of thanks in advance
Mick.