生成数组，并使用Vlookup循环遍历此数组（VBA）

Question

使用以下代码我尝试根据列＆＃34; LN＆＃34;中的内容生成一个数组（＆＃34; LN＆＃34;中的所有值都是命名范围，对应于不同的单元格） 。然后使用vlookup我希望它查看单元格d25，并在数组的每个命名范围内查找匹配。

Sub Find_Value()

Sheets(“Sheet5”).Select

Dim arr() As Variant

arr() = Sheets("Sheet5").Range("LN4:LN" & LRow).Value

Dim I As Long
For I = 1 To Range("LN").End(xlUp).Value

Sheets(“Estimation - Entry”).Select
Range("P40").Value = arr(1)  
Range(“E25").Value=WorksheetFunction.Vlookup(Range(“D25").Value,Range((arr(i)),2,0)
End Sub

（这段代码不起作用，我不确定为什么）