Да прошу прощения, файлы оказались больше 100 КБ, уменьшил число листов.

Во вложении два файла. Нужно получить третью книгу с теми же листами, но просуммированными объемами из двух книг.

Это каждый на каждый лист надо делать консолидацию, очень долго!

Добрый день!
Есть две книги, в них есть несколько десятков листов, названия листов в книгах совпадают, таблицы одинаковые, разные числа. Требуется получить 3 книгу в которой будет то же количество листов, но со сложенными данными в таблицах. Как для этого создать макрос? Если тупо забивать формулы в 3 книгу, то это очень долго. Листов довольно много.
Спасибо за ответы

Всем спасибо за участие! Вот что я сделал:
убрал из формулы (=ГИПЕРССЫЛКА(ВПР(Лист1!E1;Лист2!1:1048576;2;ЛОЖЬ)) гиперссылку, у меня вышел в ячейке адрес файла, в модуле написал код
Sub TextToLink()
Sheets("Лист1").Select
range("A13").Select
ActiveCell.Hyperlinks.Add ActiveCell, ActiveCell.Text
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=Tr
End Sub
сразу скажу что переместил ссылку на Лист1, чтобы не перебрасывало при открытии гиперссылки на второй лист, привязал макрос к кнопке и все заработало!!! Уряяяяя!
Еще раз всем СПАСИБО!!!

да сейчас попробовал "чистую" гиперссылку (не формулу) все работает! а гиперссылку с формулой как запустить через кнопку? можно или нет?

Юрий, и у меня ссылка, я ведь ее мышкой нажимаю, все открывается... а вот через кнопку не работает! жаль! Но все равно спасибо за оперативную помощь!!!

может это из-за "мудренной" формулы в гиперссылке (=ГИПЕРССЫЛКА(ВПР(Лист1!E1;Лист2!1:1048576;2;ЛОЖЬ))?

Sub Макрос1()
'
' Макрос1 Макрос
'

'
   Sheets("Лист2").Select
   range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Я нажимаю на запись макроса, далее перехожу на второй лист и жму на гиперссылку (синий шрифт), далее нажимаю остановку записи и привязываю кнопку! Почему в коде не прописывает все остальное я не знаю! Я не активирую ячейку а жму именно на ссылку..
вставил в код данные
   range("N1").Select
   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

пишет ошибку run-time error '9'

не знаю! сделал как написал Юрий, вот что получилось..

Макрос записался
Sub Макрос1()
'
' Макрос1 Макрос
'

'
   Sheets("Лист2").Select
   range("N1").Select
   End Sub
кнопку привязал, но при нажатии просто переводит в ячейку с гиперрссылкой не открывая ее..
мне нужно чтобы при нажатии открывался файл указанный в гиперссылке. что не так в коде?

Всем доброго дня!
Прошу помощи вот в какой проблеме! Имеется книга эксель, в которой задана гиперссылка =ГИПЕРССЫЛКА(ВПР(E1;Лист2!1:1048576;2;ЛОЖЬ)) хотелось сделать чтобы эту самую гиперссылку можно было запустить нажатием кнопки. Как сделать не знаю! Кнопку создал, какой макрос написать теперь не знаю чтобы активировать ячейку с гиперссылкой...