Find Value from a Workbook and Return the Value next to the column

[Razor_Rob]

Hi

I would like a VBA code to look for the Employer Name (Column B) on a workbook name ExtOrgsList.xlsx then return the value on column A to a different workbook for example ImportName.csv both files are in the same folder.

the search should start from row 5 and all the way to the last record.

Sample Data of ExtOrgsList.xlsx

A B
310001 Employer Name 1
310002 Employer Name 2
310003 Employer Name 3
310004 Employer Name 4

then this info should copy and replace the value that are in column AN of the file ImportName.csv

Sample Data of ImportName.csv BEFORE the code
AN
Employer Name 1
Employer Name 2
Employer Name 3
Employer Name 4

Sample Data of ImportName.csv AFTER the code
AN
310001
310002
310003
310004


Thank you thank you so much in advance

 

[Razor_Rob]

I found the below code but doesnt seem to do anything....

Dim Cl As Range
    Dim Dic As Object
        
    Set Dic = CreateObject("scripting.dictionary")
    With wsDest
        For Each Cl In .Range("AN2", .Range("AN" & Rows.Count).End(xlUp))
            Dic(Cl.Value) = Cl.Offset(, 1).Value
        Next Cl
    End With
    With wsExtOrgsList
        For Each Cl In .Range("B5", .Range("B" & Rows.Count).End(xlUp))
            If Dic.exists(Cl.Value) Then Cl.Offset(, 1).Value = Dic(Cl.Value)
        Next Cl
    End With

 

[Razor_Rob]

Duh, it was reversed, got it working

But

How do I make sure the search match the whole text in column B
ie i tested
Column A
330001
330002

Column B
Mac Constructions
Mac Construc


It returns the value as 330001, where the 2nd line should return 330002