1. You are over complicating this.
I would not use index within VBA, what benifits does it give you?
application.index(A1:A1000,25)
is the same as
range("A1").offset(25-1,0).value
or
Both my solutions will be a lot faster than using application.index
2. The Match function is usually used with a zero.
3. However Application.match is very slow consider using find,
With Range("B1:B1000")
Set rngfind = .Find("12", .Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole)
LR = rngfind.offset(0,1).value
End With
Bookmarks