'### Пересчет сводных таблиц

Function fun_ManualUpdatePt(ByVal strShName As String, _

ByVal bVal As Boolean) As Boolean

'strShName - имя листа

'bVal - включить\отключить

Dim oPt As PivotTable

On Error Resume Next

With ThisWorkbook.Sheets(strShName)

If .PivotTables.Count > 0 Then

For Each oPt In .PivotTables 'цикл по всем сводным таблицам

oPt.ManualUpdate = bVal

Next 'oPt

End If

End With

FnManualUpdatePt = True

End Function