Uncheck AutoFormat (Pivot Tables)

[Hans Knudsen]

I have a workbook (for training purposes) with many different pivot tables.
I want to uncheck AutoFormat table under Table Options
for each 'Refresh Data'.

Some help on the necessary code for that?

Regards
Hans Knudsen

 

[Debra Dalgleish]

Dim ws As Worksheet
Dim pt As PivotTable

For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.HasAutoFormat = False
Next pt
Next ws