Список проголосовавших за комментарий "Алексей Боярский, кнопка «Обновить данные» вызывает ошибку, потому что листы, которые пытается выделять макрос, скрыты.<br/> Поскольку эта кнопка — первое, что видит пользователь при открытии файла, не очень хорошо, что он сразу видит ошибку.<br/> <br/> Предлагаю Вам переписать макрос в RefreshData в 7-м модуле таким образом<br/> <br/> Sub RefreshData()<br/> <br/> Dim DataBaseAT As Worksheet, VaR As Worksheet<br/> <br/> Set DataBaseAT = ThisWorkbook.Worksheets(«DataBaseAT»)<br/> DataBaseAT.Columns(«T:T»).Copy<br/> Set VaR = ThisWorkbook.Sheets(«VaR»)<br/> VaR.Range(«A1»).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False<br/> Application.CutCopyMode = False<br/> ActiveWorkbook.RefreshAll<br/> End Sub<br/> <br/> При этом отсутсвует необходимость отображать скрытый лист «DataBaseAT»"