Как изменить путь гиперссылки

[Людмилка]

У меня на листе много гиперссылок, в пути гиперссылки указан месяц например Ноябрь, мне надо ноябрь заменить на декабрь. Я написала вот такой макрос:
Sub Gip()

Dim lnk As Hyperlink
box1 = InputBox("Старый месяц", "Старый месяц")
box2 = InputBox("Новый месяц", "Новый месяц")

For Each lnk In ActiveSheet.Hyperlinks
lnk.Address = Replace(lnk.Address, box1, box2)
Next

End Sub
Таким образом у меня заменяется не полный адрес (от диска С:\), а адрес от папки в которой находится файл.
У меня вопрос: как получить полный адрес гиперссылки?
Я пробывала сцеплять путь к рабочей книге и адрес гиперссылки, но тогда при каждом запуске макроса, опять цепляется путь рабочей книги к макросу (по нарастающей так сказать).

[EducatedFool]

Это пробовали?
http://excelvba.ru/code/replace_hyperlinks
По сути, от же самое, - но никто не жаловался на этот код.

PS: А вас, видимо, все гиперссылки сейчас относительные.
Сделайте из абсолютными (например, путем сохранения файла на другом диске, и последующего сохранения по прежнему пути), а потом выполняйте замену.

PS: Ваш файл Excel находится в папке "ноябрь"?
Тогда разместите его в другой папке - на один уровень вверх,
чтобы в той папке, где расположен файл Excel, были подпапки с названиями месяцев.
После этого точно гиперссылки начнут заменяться.

[Людмилка]

http://excelvba.ru/code/replace_hyperlinks этот код моей проблемы не решает, там тоже меняется только часть адреса гиперссылки
Полный путь гиперссылки вот такой
C:\Documents and Settings\User\Рабочий стол\Выработка ДВ-Март ноябрь 11\декабрь\декабрь.xlsx
После макроса изменяется та часть пути, что выделена жирным
Мой файлик находится в Выработка ДВ-Март ноябрь 11
Перемещать файлики я не могу, там очень много уровней и файликов.

Когда наводишь мышкой на гиперссылку, то отображается полный путь, а в lnk.Address хранится урезанный путь (декабрь\декабрь.xlsx)