VBA Find Value from one Range in another Range

[xrobc]

I am in need of some help to do this in VBA.

I have a range of values in a Workbook1.Sheet1.F2:F1048576.

I wish to check if any of these values appears in a second range in Workbook2.Sheet1.A2:A1048576.

(The actual length of each of both ranges will vary, hence why I've used the full length of the Spreadsheet).

If found, return the found value (activecell.value) to a named cell reference (called "Con_no") in Workbook2.

Thanks

 

[xrobc]

All I have to do now is get it working with different workbooks:

Sub BoM_has_con()

    Dim Has_Con       As Variant
    Dim Con_Range     As Variant
    Dim i             As Long
    Dim j             As Long
    
    Has_Con = Range("F2", Cells(Cells(Rows.Count, "F").End(xlUp).Row, "F")).Value
    
    Worksheets("ShtLookup").Activate
    Con_Range = Range("G2", Cells(Rows.Count, "G").End(xlUp))
    Worksheets("ShtPrepare").Activate
    
    For i = 1 To UBound(Has_Con)
      For j = 1 To UBound(Con_Range)
      
        If Has_Con(i, 1) = Con_Range(j, 1) Then Range("A30").Value = Con_Range(j, 1)

      Next j
    Next i

    Range("F2").Resize(UBound(Has_Con)).Value = Has_Con
    
End Sub