更新组合框列表VBA表单时，运行时错误28没有堆栈空间

Question

使用excel范围值更新一个组合框列表值时，通过复选框我得到

  

堆栈空间中的运行时错误28

这个错误我只能在机器上获得。为什么？ 为什么其他机器能够毫无问题地运行它？

尝试以下VBA代码

Private Sub ChBox_Act_Click()

    If ChBox_Act Then

        Do While CB_Activity.ListCount > 0
            CB_Activity.RemoveItem (0)
        Loop

        For Each cell In DBVal.Range("Non_Prod")
            CB_Activity.AddItem cell.Value
        Next

    ElseIf Not ChBox_Act.Value Then

        Do While CB_Activity.ListCount > 0
            CB_Activity.RemoveItem (0)
        Loop

        For Each cell In DBVal.Range("UM_Act")
            CB_Activity.AddItem cell.Value
        Next

    End If
End Sub

在此行For Each cell In DBVal.Range("UM_Act")

中收到错误

如何使代码成为全局代码，可以在所有系统中运行而没有任何问题？