无法获取WorkSheet函数类的match属性 - 语法？

Question

我继续在Application.WorksheetFunction的行上收到此错误，并且从主题上阅读了几个小时，我觉得我已经无处可去了。 它与我引用Sheet2的方式有关吗？或者我不完全理解Application.WorksheetFunction应该做什么？

Sub SearchForValues()

i = 4   'starts the iterator at column D

Do While Cells(1, i) <> ""

    Dim l As Long, searchRange As String
    n = 2
        Do While Range("A" & n) <> ""      'loop until the last row of data in the first column
        StartRow = Range("B" & n)
        EndRow = Range("C" & n)
        searchRange = "A" & StartRow & ":Q" & EndRow
        l = Application.WorksheetFunction.Match(Cells(1, i), Worksheets("Sheet2").Range(searchRange), 0)
        Range("D" & n) = l
        n = n + 1
    Loop

i = i + 1
Loop
End Sub

这是我拥有的数据的屏幕截图。列B和C是我要在Sheet2上为工作表1上的每一行搜索的行的范围，而顶部的每个单元格都是我想在该范围内搜索的术语。