pf In .PivotFields gets rid of all the information in a Pivot Table

[makeitwork09]

I am using Excel 2007 on Windows 7.

The code below gets rid of everything, the row fields and the data fields, thus only leaving the header rows, eventually resulting in an error that reads "Unable to set the subtotal property of the pivot class".

       For Each pf In .PivotFields
            pf.Subtotals(1) = True
            pf.Subtotals(1) = False
        Next pf

Any ideas on how I can fix this?

Thanks

Pam

 

[makeitwork09]

I change the above code to the following. When I did that the code ran without an error, but it still got rid of everything, leaving only the header.I replaced .PivotFields with .RowFields

        For Each pf In .RowFields             
            pf.Subtotals(1) = True
            pf.Subtotals(1) = False
        Next pf

 

[makeitwork09]

I solve the problem. I had the following code after the code above. That is what was causing the information to "disappear".

        'calculate the pivot table
        PT.ManualUpdate = False
        PT.ManualUpdate = True