填充列表框

Question

我有两个列表框。在左侧，我有一个要选择的项目列表，在右侧，我希望根据选择的项目填充相应的报告。例如，在左侧，用户将选择“查找名称”，在右侧，我希望框中填充“查找名称报告”。

到目前为止，我在左框中有要选择的项目，相应的数字出现在单元格J2中。所以第一项显示1，第二项显示为2，依此类推。当我尝试使用以下代码填充第二个列表框时，没有任何反应。我做错了什么？

Sub ListBox5_Change()

     If Sheets("Sheet1").Range("J2") = 3 Then

         ListBox5 = "words to this effect"

     Else

         ListBox5 = "something else"

      End If

 End Sub

感谢。