Sub AutoFormat_All_Pivotstable() ' Отключить автоподбор ширины столбца при обновлении ' на всех сводных таблицах в активной рабочей книге.


Dim ws As Worksheet
Dim pt As PivotTable     ' Цикл каждого листа в активной рабочей тетради
For Each ws In ActiveWorkbook.Worksheets         ' Проходить по каждой сводной таблице на листе
For Each pt In ws.PivotTables             ' Автоподбор ширины столбца при обновлении       ' изменить на True, чтобы включить
pt.HasAutoFormat = False

Next pt
Next ws
End Sub