VBA to replace multiple values

[VbaHell]

Hello all

I hope you can help on this please

In worksheet called "Sheet1" I have in column "A" 100 text values
In Column "B" 1 have the text that I want to use to replace in each value

In worksheet "Data" in column "K" this is where I want to replace the values

Just like replace: Find What column "A1": Replace with "B1" but place the result in "Data" worksheet column "K" where there is a match.

Is this possible please

 

[Fluff]

How about

Sub VbaHell()
   Dim ary As Variant
   Dim i As Long
   
   With Sheets("Sheet1")
      ary = Range("A1", Range("A" & Rows.Count).End(xlUp).Offset(, 1)).Value2
   End With
   With Sheets("Data")
      For i = 1 To UBound(ary)
         .Range("K1", .Range("K" & Rows.Count).End(xlUp)).Replace ary(i, 1), ary(i, 2), xlWhole, , False, , False, False
      Next i
   End With
End Sub

 

[VbaHell]

Fluff this works great and saves me do much time
thanks very much for your help

 

[Fluff]

You're welcome & thanks for the feedback