'sa VLOOKUP RADI With Application.WorksheetFunction Cells(1, 1) = .VLookup(Sheets("List1").Range("C5"), _ Sheets("List2").Range("a1:k950"), 2, False) End With 'sa INDEX(MATCH) NE RADI With Application.WorksheetFunction Cells(2, 1) = .Index(Sheets("List2").Range("A1:k950"), _ .Match(Sheets("List1").Range("C5"), _ Sheets("List2").Range("A1:K950"), 0), 0) End With