填充ListBox时，宏停留在For Each循环中

Question

我有以下代码来填充列表框：

For Each cellValue In Sheet7.Range("A:A").Cells
    If cellValue.value = Get_ClientID(TextBox1.Text) Then
        equipmentName = Get_EquipmentName(Sheet7.Cells(cellValue.row, 2))
        numeroCalibracao = TextBox6.Text
        ultimacalibracao = TextBox5.Text
        ListBox1.AddItem equipmentName
        ListBox1.List(ListBox1.ListCount, 1) = numeroCalibracao
        ListBox1.List(ListBox1.ListCount, 2) = ultimacalibracao
    End If
Next

问题是，当运行时，Excel变得没有响应，甚至Ctrl + Break都没有设法突破循环。它应该根据Sheet 7上匹配条目的数量填充列表框。我尝试用数字替换ListBox1.Listcoun，但它仍然无法工作。我错过了什么？

信息：

• Get_ClientID是一个接受字符串的函数，并返回一个整数;
• Get_EquipmentName是一个取整数的函数，并返回一个字符串;
• qazxsw poi，qazxsw poi，qazxsw poi和cell value是变量equipmentNameed在sub的开头。

如果需要更多信息，请告诉我，我会提供。