incapaz de obter a propriedade visível da classe de pivotitem

Eu tenho dois conjuntos de códigos. Por alguma razão, noprimeiro eu recebo um erro, E nosegundo eu não. 1: Dim pi As PivotItem Dim pf As PivotField Set pf = Sheets("Afname per school").PivotTables("Draaitabel3").PivotFields("school") For Each ...