By using listi.net you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

listi.net

OldPivotFormat


Sub OldPivotFormat()

On Error Resume Next 
   with ActiveSheet.PivotTables(ActiveCell.PivotTable.Name)
        .InGridDropZones = True
        .ShowDrillIndicators = False
        .RowAxisLayout xlTabularRow
   end with

   ActiveSheet.PivotTables(ActiveCell.PivotTable.Name).HasAutoFormat = False
End Sub