Find and replace but replace value of cell 3 columns along

Hi,

I have the below code but instead of replacing the actual lookup value I wish to replace the value of a cell 3 columns along from the lookup value and on the same row. if the lookup value is found. How would I adjust the below

[CODE]
With Sheets("Joined")
Set rngData = .Range("V2", .Range("V" & Rows.Count).End(xlUp))
End With

With Sheets("Funds")
Set rngLookup = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
End With

For Each Lookup In rngLookup
If Lookup.Value <> "" Then
rngData.Replace What:=Lookup.Value, _
Replacement:=Lookup.Offset(0, 3).Value, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
MatchCase:=False
End If
Next Lookup

[\CODE]

Hi,

I have the below code but instead of replacing the actual lookup value I wish to replace the value of a cell 3 columns along from the lookup value and on the same row. if the lookup value is found. How would I adjust the below

Please Login or Register  to view this content.