Excel VB列表框丢失值和文本属性

我试图在两天内解决这个问题，但我还没有找到解决办法。 我的excel中有很多列表框，每个列表框都填充了不同的数据，我还使用这些列表框使用VB代码更改透视表中的一些过滤器

问题是，在使用一些列表框之后，这些列表框停止工作，它们停止工作以获取所选的值。 我发现问题发生后，“Value”和“Text”两个属性消失了。要再次使用列表框，我需要关闭excel并再次打开它，如果我试图保存工作簿，它也会停止工作

我试着把它的一些图像带来，但我还没有得到名声

谁能帮我

更新：

以下是图片：

下面是列表框后面的代码（所有列表框都有类似的代码）：

---

另外，我认为这是一个excel问题，因为当它发生时，所有工作簿都会受到相同问题的影响。

我看到其中一个列表框填充了命名范围，我只是删除了命名范围并手动填充了列表框，这似乎工作正常，不会给我带来更多问题。

我可以看看工作簿吗？如果是，请上传到一个免费的文件共享网站，并在这里共享链接。如果没有，请上传图片到一个免费的文件共享网站，并在这里共享链接。我们将更新问题。您可能还想用围绕列表框的代码更新问题？好的，我不能上传文件，因为它是公司文件，但我已经上传了列表框属性图像和列表框后面的代码。知道吗？我需要在下周末之前完成这项工作，我不知道如何解决这个问题。谢谢，我觉得这是一种堕落。我可能错了，我不清楚。如果这是工作簿中的一种损坏，我可以从哪里开始查找？我已经检查了问题是否在我使用列表框10次后开始出现。这似乎是一个愚蠢的问题，但它让我发疯。

If ListFaturaFatura.List(ListFaturaFatura.ListIndex) = "Total" Or _
ListFaturaFatura.List(ListFaturaFatura.ListIndex) = "" Then
    Sheets("Fatura_Data").PivotTables("DinamicaFatura1").PivotFields("FATURA").ClearAllFilters
Else
    Sheets("Fatura_Data").PivotTables("DinamicaFatura1").PivotFields("FATURA").CurrentPage = _
    ListFaturaFatura.List(ListFaturaFatura.ListIndex)
End If