Søge data med VBA

Vil det ikke svare til at overskrive ark1 med ark2 så?

I ark1 har jeg ca 500 linjer med varenumre, men i ark2 har jeg f.eks kun 3.
Så jeg vil gerne se om de 3 linjer også findes i ark1

Det skal siges at jeg har ca. 700 excel filer jeg skal gennemgå, derfor en VBA kodning vil gøre arbejdet nemmere :-)

700 forskellige Excel filer? Ja - det kræver vist VBA
Du er velkommen til at kontakte mig via www.supertekst-it.dk | Kontakt - hvis det måtte have interesse.

Jeg er nået så langt her, men kan stadig ikke få den til at virke.
Den er ikke glad for at jeg bruger WorksheetFunction

Sub Sample()
    Dim wbThis As Workbook, wbThat As Workbook
    Dim wsThis As Worksheet, wsThat As Worksheet
    Dim aCell As Range

    Set wbThis = ThisWorkbook
    '~~> Let's say this is the sheet where you want the result
    '~~> Change name as applicable
    Set wsThis = wbThis.Sheets("Varenummer")

    '~~> Change path as applicable
    Set wbThat = ThisWorkbook
    Set wsThat = wbThat.Sheets("Hjælpeark")

    With wsThis
        For Each aCell In .Range("B1" & LastRow)
            If Len(Trim(.Range("A" & aCell.Row).Value)) <> 0 Then
                .Cells(aCell.Row, 28) = Application.WorksheetFunction.VLookup(aCell.Value, wsThat.Range("A1:A700"), 1, 0)
               
            End If
        Next aCell
    End With

    wbThat.Close (False)
End Sub

Har du fået løst ovenstående problem?

Ja fandt selv en løsning :-)
I skal have tak fordi i prøvede

Fint og selv tak