424对象必需错误

Question

到目前为止，我已经写了这篇文章，我打算做的是在D列中找到值ORDER31。如果满足此条件，我想在同一行中但从C列中找到相应的值，在这种情况下，我有使用OFFSET（）并将此值放入名为colC的变量中。 然后，我希望使用此值进行查找，并提取一个我想分配给newVal的新值。 然后，我希望将此newVal分配给找到ORDER31的原始单元。

我收到424对象必需错误，并且我不确定我要去哪里错误？

 Sub illHack()

     Sheets("Data").Select
     Dim colC As String
     Dim newVal As String

     For Each r In Intersect(ActiveSheet.UsedRange, Range("D:D"))
         If r.Text = "ORDER31" Then
             colC = r.Offset(0, -1)
             newVal = Application.WorksheetFunction.VLookup(colC, Lookup.Range("I17:K22"), 2, False)
             r.Offset(0, 0) = newVal
         End If
     Next r

     Sheets("Control-Sheet").Select
End Sub

Answer 1

由于“查找”是选项卡名称而不是代码名称，因此您需要使用：

newVal = Application.WorksheetFunction.VLookup(colC, Worksheets("Lookup").Range("I17:K22"), 2, False)