Dette er sikkert nemt for jer

men jeg har godt nok problemer med at få nedenstående kode til at virke.

Jeg har to åbne excelark. Det er meningen at når VBA udfører denne kode, så skal den for nogle givne celler i kolonne b i excelark1 lave et vlookup/lopslag hvor det den skal søge efter er i cellen til venstre, men den "range" som der skal gennemsøges er i excelark2.

VBA popper op med en fejl hver gang som siger:

Run-time error '1044'
Application-defined or object-defined error

Når jeg derefter trykker på "debug" markeres følgende med gult.

Set res = Application.WorksheetFunction.VLookup(Cells(row, 2), w.Range("a1:d100"), 2, False)

Min kode er her (bær over med mig.. Jeg er i gang med at lærer :)

Option Explicit

Sub DetteErEnTest()

Dim row As Integer
Dim res As WorksheetFunction
Dim w As Worksheet
Dim ws As Worksheet

Set w = Workbooks("Test1").Worksheets("ark1")
Set res = Application.WorksheetFunction.VLookup(Cells(row, 2), w.Range("a1:d100"), 2, False)
Set ws = ActiveWorkbook.Sheets("ark1")

For row = 1 To 5

    ws.Cells(row, 2).Value = res
Next row

End Sub