The_Prist, спасибо большое. Разобрался.

The_Prist, Добрый день!
Спасибо, это именно то, что надо!
Еще один вопрос, можно ли "For Each oSh In ActiveSheet.Shapes" поменять на "For Each oSh In ThisWorkbook.Shapes" ?
Пробую, не получается.

Отсюда возникает следующий вопрос, в примере указан метод замены гиперссылок по выбору диапазона, у меня каждая гиперссылка привязана к кнопке/тексту на каждом листе.

Скрин:

Добрый день!
У меня есть книга, содержащяя множество кнопок с внутренними гиперсылками на различные листы.
При изменении названия книги ни одна ссылка не работает, так как адрес гиперссылки начинается с названия книги.
Как изменить все гиперссылки одновременно?