与空白崩溃的PivotItems

我在Excel中写了一个macros来比较一个单元格和一个透视filter，如果它被选中的话：

Dim checkUnit As Boolean checkUnit = False For Each p In test Debug.Print p If (p.Visible And p = registration.Cells(i, 2)) Then checkUnit = True End If Next p 

这对我来说工作正常，但使用这个macros的其他人有一个问题。 我的语言设置为英语，他已经设置为德语。 现在当德国人来到“空白”的时候，他在p.Visible崩溃了。 在英语中，这不是一个问题。

有什么不同，我该如何解决这个问题？