Список проголосовавших за комментарий "SCRTR, предполагается использования кнопки «обновить» уже после открытия дополнительных листов, но Ваше предложение, соглашусь, выглядит эстетичней. В конце есть необходимость задублировать процесс ActiveWorkbook.RefreshAll, т.к. обновление данных через сводные таблицы происходит в ряде случаев перекрещиванием данных и одного раза недостаточно.<br/> <br/> Можно пойти двумя вариантами использования:<br/> <br/> 1) Ваш вариант (дополненный):<br/> <br/> <p>Sub RefreshData()</p><p> </p><p> Dim DataBaseAT As Worksheet, VaR As Worksheet</p><p> Set DataBaseAT = ThisWorkbook.Worksheets(«DataBaseAT»)</p><p> DataBaseAT.Columns(«T:T»).Copy</p><p> Set VaR = ThisWorkbook.Sheets(«VaR»)</p><p> VaR.Range(«A1»).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False</p><p> Application.CutCopyMode = False</p><p> ActiveWorkbook.RefreshAll</p><p> ActiveWorkbook.RefreshAll</p><p> Sheets(«Result»).Select</p><p> Range(«A1»).Select</p>End Sub<br/> <br/> <br/> 2)… или откорректировать старый (дополнив процедурами Call OpenSheets и Call CloseSheet):<br/> <br/> <br/> <p>Sub RefreshData()</p><p>'</p><p>' RefreshData Макрос</p><p>'</p><p> </p><p>'</p><p> Call OpenSheets</p><p> Sheets(«DataBaseAT»).Select</p><p> Columns(«T:T»).Select</p><p> Selection.Copy</p><p> Sheets(«VaR»).Select</p><p> Range(«A1»).Select</p><p> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _</p><p> :=False, Transpose:=False</p><p> Sheets(«Tables»).Select</p><p> Range(«B11»).Select</p><p> Application.CutCopyMode = False</p><p> ActiveWorkbook.RefreshAll</p><p> ActiveWorkbook.RefreshAll</p><p> Call CloseSheet</p><p> Sheets(«Result»).Select</p><p> Range(«A1»).Select</p>End Sub<br/> <br/> В любом случае Вам спасибо! В исходнике я поправлю. Уже подправил!"