VBA Update a column with Master List from other spread sheet

[ivonsurf123]

Hello,

Need help with my code, I want to find the wrong name in one spread sheet per example: "CRYOMAX COOLING SYSTEM CORP" (wrong) compare with a Master List: "CRYOMAX COOLING SYSTEM CORP."(Correct)
"SUN ELECTRONIC CO LTD" (Wrong) "SUN ELECTRIC CO.,LTD." (Correct) and Update the wrong names with the correct names that are in the Master List, Please Help, my code is missing something... Thank you.

Sub Update_Suppliers()

Dim wrkBK As Workbook
Dim DocFldr As String

Dim i, total, fRow As Integer
Dim found As Range
Dim w As Range


DocFldr = CreateObject("WScript.Shell").SpecialFolders("Desktop")

Set wrkBK = Workbooks.Open(DocFldr & "\FY22_Monthly_analysis_Freight_in_out\SUPPLIERS_LIST.xlsx")

Application.ScreenUpdating = False

total = Workbooks("SUPPLIERS_LIST.xlsx").Worksheets("SUPPLIERS_LIST").Range("B" & Rows.Count).End(xlUp).Row

For i = 1 To total
answer1 = Workbooks("SUPPLIERS_LIST.xlsx").Worksheets("SUPPLIERS_LIST").Range("B" & i).Value
Set found = Workbooks("Invoice rep. w. Chg Dtl June, 2022.xlsM").Worksheets("Copy").Columns("I:I").Find(what:=answer1) 'finds a match
If found Is Nothing Then
'Workbooks("Invoice rep. w. Chg Dtl June, 2022.xlsM").Worksheets("Copy").Range("I" & i).Value = "NO MATCH"
Else
fRow = Workbooks("Invoice rep. w. Chg Dtl June, 2022.xlsM").Worksheets("Copy").Columns("I:I").Find(what:=answer1).Row
Workbooks("Invoice rep. w. Chg Dtl June, 2022.xlsM").Worksheets("Copy").Range("I" & fRow).Value = Workbooks("SUPPLIERS_LIST.xlsx").Worksheets("SUPPLIERS_LIST").Range("B" & i).Value

End If
Next i


End Sub

 

[bebo021999]

Fast answer needs visual help. Pls attach a screenshot/XL2BB to see the whole picture

 

[ivonsurf123]

Sheet 2 needs to be updated according to the MasterList Names: Correct Name is this example is "SUN ELECTRONIC CO.,LTD." from The Master List. Also, if there is a new Name in sheet 2 that is not in the MAster List I need to highlighted. Thank you.