Сделал так вообщем. Обновление всех сводных таблиц в книге.

Sub Refresh_All()
ThisWorkbook.RefreshAll
End Sub

Почему то не работает - ошибка 1004

Спасибо

Исправился)

Karataev,Подскажите Пожалуйста - если вы знаете - Как автоматически обнавить данные СВОДНОЙ ТАБЛИЦЫ-с помощью МАКРОСА? - Хочется автоматизировать этот процесс, а не нажимать кнопку Обновить Заранее спасибо

Спасибо сейчас попробую

Подскажите пожалуйста. Существует 3 листа.
На первом вводится та или иная информация в таблицу.
При активации второго листа - автоматически запускается макрос, который копирует данные Первого листа на второй:
Sheets("Лист 1").Range("A1:AZ1500").Copy Sheets("Лист 2").Range("A1").
На Третий лист выводится СВОДНАЯ ТАБЛИЦА -  Из данных Лист 2.

Проблема в том что при открытии Лист 2 и автоматического запуска макроса - Имя таблицы меняется автоматически програмно Ecxel'ем и на Лист 3 Сводная таблица не понимает откуда брать данные так как не может найти Затертое Имя таблицы.

Как написать макрос что при переходе на другой лист Например 3, макрос Присваивал определенное Имя таблицы и не менял его.

РЕШЕНИЕ НАШЕЛ
ИТОГОВЫЙ КОД

Private Sub Worksheet_Activate()


   Sheets("Выбор из списка").Range("A1:AG49").Copy Sheets("Готово").Range("A1")

   'Поиск и замена
   Cells.Replace What:="_", Replacement:=" ", LookAt:=xlPart, SearchOrder _
       :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
       Dim cell As Range 'переменная для перебора ячеек
       Dim r As Range 'переменная для диапазона используемых ячеек
       Set r = ActiveSheet.UsedRange 'Все используемые ячейки
   For Each cell In r.Cells
       'Если один символ справа равен ","
       If Right(cell.Value, 1) = "," Then
           'замена значения ячейки на то же значение, но без последнего символа
           cell.Value = Left(cell.Value, Len(cell.Value) - 1)
       End If
   Next
End Sub

Список многоуровненый и создан с условием добовление значений в листе "Список"
Даже если по вашему у вас работает - как же перенести данные с листа Выбор из списка в лист Готово? Макрос написан под ввод данных с клавиатуры. Список почему то он не копирует

ок, дупустим мы убрали все пробелы. Выбираем на листе "Выбор списка" в 1 - Груши сливовые - но далее в калонке 2 - он не даст выбрать так как в Формулы - Диспетчер Имемен - не понимает создание Имени с пробелом.
Список многоуровневый

Всем привет.
Помогите решить задачу.
Существует Сводный список на Листе "Список", созданный способом умной таблицы (с учетом ручного добавления в будущем). Так как список не понимает пробелы, слова словосочетания сгруппированы через знак "_". На втором листе "Выбор из списка" - мы выбираем значения для таблицы. Так как для Итоговой таблицы словосочетания соединенные знаком "_" не уместны, Я решил создать макрос, копирующий данные c листа "Выбор из списка" в лист "Готово" - с изменением знака "_" на пробел. Мой код работает для свеже-написанных данных вручную, НО К СОЖАЛЕНИЮ НЕ КОПИРУЕТ ДАННЫЕ ВЫБРАННЫЕ ИЗ СПИСКА НА ЛИСТЕ "Выбор из списка"
Как решить эту проблему заранее Спасибо.