Pivot table

[obamams]

Hi guys,

I would like to disable the autoformat for all the pivot table in my wordbook, do this macro is correct?

Sub Macro2()

workbook.Select
ActiveSheet.allPivotTables.HasAutoFormat = False
End Sub

 

[AlphaFrog]

Sub Macro2()

    Dim ws As Worksheet, i As Integer

    For Each ws In Worksheets
        If ws.PivotTables.Count > 0 Then
            For i = 1 To ws.PivotTables.Count
                ws.PivotTables(i).HasAutoFormat = False
            Next i
        End If
    Next ws
End Sub

 

[Fazza]

fyi, you can loop through the pivot tables collection as below. untested

dim ws as worksheet
dim pt as pivottable
 
for each ws in worksheets
for each pt in ws.pivottables
pt.hasformat = false
next pt
next ws
set pt=nothing
set ws=nothing