数据透视表使用Excel VBA展开和减去或显示/隐藏详细信息

Question

I am trying to hide details of the pivot table column using the below command. Can Some one let me know the mistake?

Thx.

     For Each c In Range("A1:A20000")
         With c
             If Left(.Value, 2) = "FA" Then ActiveSheet.PivotTables("PivotTable1").PivotFields("Ref 1").PivotItems( _
        "*").ShowDetail = False
             End With
     Next c

Answer 1

Finally found the silly mistake

Dim c As Range
     For Each c In myfile.Sheets(3).Range("A1:A20000")
         With c
            If Left(c.Value, 2) = "FA" Then ActiveSheet.PivotTables(1).PivotFields("Ref 1").PivotItems(c.Value).ShowDetail = False
        End With
     Next