无法在Excel 2013中使用Listview

Question

我正在尝试在Listview中生成所有字段值。可以在MS Office 2010中正常运行，但是升级到MS Office 2013后，将内容加载到Listview / Listbox中会出现问题。

有人可以帮我吗？

下面是代码：

Sub Worksheet_Activate()
Dim rngCell     As Range
Me.ListBox21.ListItems.Clear
For Each rngCell In Worksheets("MFRs Contacts").Range("A2:A400")
If Not rngCell = Empty Then
    With ListBox21.ListItems.Add(, , rngCell.Value)
        .ListSubItems.Add , , rngCell.Offset(0, 1).Value
        .ListSubItems.Add , , rngCell.Offset(0, 2).Value
    End With
End If
Next rngCell
End Sub  

谢谢。