Hi, nashi,
the items are on a sheet called List starting in A1 and B1 going down the rows, the data is located in sheet Data (alter names and ranges to suit):
Sub EF971666()
Dim wsList As Worksheet
Dim wsData As Worksheet
Dim lngCount As Long
Set wsList = Sheets("List")
Set wsData = Sheets("Data")
For lngCount = 1 To wsList.Range("A" & Rows.count).End(xlUp).Row
wsData.UsedRange.Replace _
What:=wsList.Cells(lngCount, "A"), _
Replacement:=wsList.Cells(lngCount, "B"), _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
Next lngCount
Set wsData = Nothing
Set wsList = Nothing
End Sub
Ciao,
Holger
Bookmarks