PivotItems与空白崩溃

Question

我在Excel中编写了一个宏来比较一个带有数据透视过滤器的单元格，如果它被选中：

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

这适用于我，但使用此宏的其他人有问题。我将语言设置为英语，并将其设置为德语。现在，当德国人来到“（空白）”时，他在p.Visible上崩溃了。在英语中，这不是问题。

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