Макрос убийства сводной таблицы

[sergser]

добрый день камрады
помогите с задачкой по работе нужно
есть книга, в нее прога сливает листы пачками, затем в ней работают люди создают всякие ссылки , формулы выщитывают все что нужно, в конце недели листов накапливается под 100 шт. нужно чтобы макрос отслеживал значение в ячейке А1 на листе "машины"(он самый первый) и при достижении цифры более 100 он бы на всех листах в ячейках оставлял только значения, удаляя формулы- это я решил, вот код, правда он почему то форматирование местами сносит собака дикая
Application.ScreenUpdating = False
If ThisWorkbook.Worksheets(1).Cells(1) > 100 Then
Application.DisplayAlerts = False
For Each wsSh In Sheets
wsSh.UsedRange.Value = wsSh.UsedRange.Value
Next wsSh
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ThisWorkbook.Save

Вот только теперь понадобилось пользоваться на тех листах сводными таблицами, их может быть до 5-6 штук на одном листе, а вот с ними уже верхний код не работает, файл распухает до таких размеров что его перестает жевать любой комп, так вот
парни помогите модифицировать верхний код чтобы сводные тоже текстом оставались на листах, низкий поклон вам, пробовал сам, перерыл весь инет чет не нашел такого.

[sergser]

постоянно вылетает сообщение что поля сводной таблицы трогать низзя
разобрался сам, вот решение.

If ThisWorkbook.Worksheets(1).Cells(1) > 100 Then
Application.DisplayAlerts = False
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Next Sheet
End If


может кому пригодится
скриптик заводится при закрытии и отрабатывает нормально