Добрый день.  
 
Прошу вас посказать, есть ли возможность установить ручной пересчет только в определенной книге.  
 
И если есть то каким путем этого можно достич

Коллеги, день добрый.  
 
Возникла проблем с открытием файла с помощью функций indirect(CONCATENATE, подскажите пожалуйста, как правильно написать эту ссылку на лист что бы она работала  
For i = 1 To 3  
   Workbooks.Open indirect(CONCATENATE(""C:\Users\balashov\Desktop\08_AUGUST\1 aug\отчет ",i," августа 2012.xls""))  
   Windows("îò÷åò 1 àâãóñòà äåíü.xls").Activate  
   Sheets("âðåìåííûé ïåðñîíàë").Select  
   ActiveSheet.Range("$E$15:$S$500").AutoFilter Field:=5  
   Cells.Select  
   Application.CutCopyMode = False  
   Selection.Copy  
   Windows("Êíèãà1.xlsm").Activate  
   Sheets("Ëèñò2").Select  
   Range("A1").Select  
   ActiveSheet.Paste  
   Windows("îò÷åò 1 àâãóñòà äåíü.xls").Activate  
   ActiveWindow.Close  
   Next i  
End Sub

Форумчане, и снова здравствуйте!  
 
Помогите пожалуйста сократить макрос, сейчас он выглядит так, из 7 клиентов остается всего 1    
   Sheets("111").Select  
   With ActiveSheet.PivotTables("СводнаяТаблица19").PivotFields("Client")  
       .PivotItems("01").Visible = False  
       .PivotItems("02").Visible = False  
       .PivotItems("03").Visible = False  
       .PivotItems("04").Visible = False  
       .PivotItems("05").Visible = False  
       .PivotItems("06").Visible = False  
 
Хочу заменить строки типа: .PivotItems("01").Visible = False на одну строку.  
 
И еще такой вопрос, если их заменить, ускорится ли скорость работы макроса.  
 
Спасибо.

Форумчане,    
 
Появилась необходимость в большом макросе, который переходит из листа в лист, убрать отображение процесса, подскажите как это можно сделать.  
 
Спасибо.