Code to loop through a column and change cell value based on list

See attachment. Column B has values that need to be updated based on a list of conversion data. I need code to loop through column B, search that value against a table on the conversion list tab, and update each cell to the new value. if the value in column B does not have a match in the list, return "-"

Can be done?

Correction, If there is no matching value in the conversion table, it should leave the original value as-is

Hello,

Please find working example in attached file.

My solution is

Private Sub CommandButton1_Click()
'Author: MaczaQ
'Thread: http://www.excelforum.com/excel-programming/792086-code-to-loop-through-a-column-and-change-cell-value-based-on-list.html

Dim r As Integer
r = 2


Do Until Cells(r, "B").Value = ""
  Set f = Sheets("Conversion List").Range("A:A").Find(Cells(r, "B").Value)
  
  If Not f Is Nothing Then
      Cells(r, "B").Value = f.Cells(, 2).Value
  End If
  
  Set f = Nothing
  r = r + 1
Loop
End Sub

Best Regards
MaczaQ

try this and if so, mark the thread as SOLVED

Sub ListUpdate()

Dim oShtA As Worksheet
Dim oShtB As Worksheet
Dim i, n As Integer

Set oShtA = ThisWorkbook.Worksheets("Values List")
Set oShtB = ThisWorkbook.Worksheets("Conversion List")

For i = 2 To oShtA.UsedRange.Rows.Count

    For n = 2 To oShtB.UsedRange.Rows.Count
        If oShtA.Range("B" & i) = oShtB.Range("A" & n) Then
            oShtA.Range("B" & i) = oShtB.Range("B" & n)
            Exit For
        End If
    Next
Next

End Sub

hi, davekippen, please check attachment, run code "test"