VBA Excel How to automatically compare multiple files to one master file then copy/paste the result
<p><a href="https://postimg.org/image/laeyoj9wn/" rel="nofollow noreferrer">https://postimg.org/image/laeyoj9wn/</a> = List</p>

<p><a href="https://i.stack.imgur.com/isHmX.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/isHmX.png" alt="enter image description here"></a></p>

<p><a href="https://postimg.org/image/ihlr4i9k7/" rel="nofollow noreferrer">https://postimg.org/image/ihlr4i9k7/</a> = Master list</p>

<p><a href="https://i.stack.imgur.com/UcekG.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/UcekG.png" alt="enter image description here"></a></p>

<p>I would like to compare the List and Master list serial number. If there is similarity value in serial number the serial number value will be automatically paste on the third column</p>

<pre><code>Sub AutoUpdate()
Dim Dic As Object, key As Variant, oCell As Range, i&amp;
Dim w1 As Worksheet, w2 As Worksheet

    Set Dic = CreateObject("Scripting.Dictionary")
    Set w1 = Workbooks("Book1.xlsm").Sheets("Sheet1")
    Set w2 = Workbooks.Open("C:\UsersSurvey Testing\Book2.xlsx").Sheets("Sheet1")
    Set w3 = Workbooks.Open("C:\Users\Survey Testing\Book3.xlsx").Sheets("Sheet1")


    i = w2.Cells.SpecialCells(xlCellTypeLastCell).Row
    For Each oCell In w2.Range("A2:A" &amp; i)
        If Not Dic.exists(oCell.Value) Then
            Dic.Add oCell.Value, oCell.Offset(, 0).Value
        End If

    Next
    i = w3.Cells.SpecialCells(xlCellTypeLastCell).Row
    For Each oCell In w3.Range("A2:A" &amp; i)
        If Not Dic.exists(oCell.Value) Then
            Dic.Add oCell.Value, oCell.Offset(, 0).Value
        End If


    Next
    i = w1.Cells.SpecialCells(xlCellTypeLastCell).Row
    For Each oCell In w1.Range("A2:A" &amp; i)
        For Each key In Dic
            If oCell.Value = key Then
                oCell.Offset(, 2).Value = Dic(key)
        End If


        Next
    Next

End Sub
</code></pre>

<p>Instead of setting the workbook 1 by 1 in the code, I would like to automatically find and set all the workbook in the folder and compare. Because there might be alot of workbook that need to be compare.</p>