Excel 运行时错误';380';无法设置RowSource属性,属性值无效

Excel 运行时错误';380';无法设置RowSource属性,属性值无效,excel,vba,excel-2010,Excel,Vba,Excel 2010,我遇到了一个错误 运行时错误“380”:无法设置RowSource属性,属性值无效 我该怎么办 我有三个选项卡:表单,产品搜索和股票数据 我已将“公式”选项卡下的“名称管理器”设置为: =OFFSET('Product Search'!$A$2,0,0,COUNTA('Product Search'!$A:$A)-1,3) 这是我的代码: Private Sub cmdSearch_Click() Dim RowNum As Long Dim SearchRow As Lon

我遇到了一个错误

运行时错误“380”:无法设置RowSource属性,属性值无效

我该怎么办

我有三个选项卡:
表单
产品搜索
股票数据

我已将“公式”选项卡下的“名称管理器”设置为:

=OFFSET('Product Search'!$A$2,0,0,COUNTA('Product Search'!$A:$A)-1,3)
这是我的代码:

Private Sub cmdSearch_Click()
    Dim RowNum As Long 
    Dim SearchRow As Long 

    RowNum = 2
    SearchRow = 2
    Worksheets("Product Search").Range("A2:I100").ClearContents

    Worksheets("Stock Data").Activate

    Do Until Cells(RowNum, 1).Value = ""
        If InStr(1, Cells(RowNum, 2).Value, txtKeywords.Value, vbTextCompare) > 0 Then
            Worksheets("Product Search").Cells(SearchRow, 2).Value = Cells(RowNum, 1).Value
            Worksheets("Product Search").Cells(SearchRow, 1).Value = Cells(RowNum, 2).Value
            Worksheets("Product Search").Cells(SearchRow, 3).Value = Cells(RowNum, 3).Value

            SearchRow = SearchRow + 1
        End If

        RowNum = RowNum + 1
    Loop

    If SearchRow = 2 Then
        MsgBox "No products were found that match your search criteria."
        Exit Sub
    End If

    lstSearchResults.RowSource = "SearchResults"
End Sub