Kan nogen se hvorfor koden fejler?

Hej. Min kode fejler, jeg vil bare lave et Lopslag i vba.
Den kan godt finde rngecelle.offset(0,-1).Value
Og workbooks("Lagerrapport").Sheets("Sheet1").Range("H2:I500") er korrekt. (Jeg har testet ved ny sub og .Activate.)
Værdier som skal slåes op er i H, svar i I.
Fejlen er run-time error 424: Object required.
Jeg troede at range, var objektet?

Dim rngcelle As Range
Dim rngOmråde As Range
    Workbooks("Ztilskind TOM").Activate
      Set rngOmråde = Workbooks("Ztilskind TOM").Sheets("Ark1").Range("N2:N500")
            For Each rngcelle In rngOmråde
              rngcelle.Value = WorksheetFunction.VLookup(rngcelle.Offset(0, -1).Value, _
                  Workbooks("Lagerrapport").Sheets("Sheet1").Range("H2:I500"), 2, False).Value