При попытке отработать код:
MsgBox (Cells(5, 5).Hyperlinks(1).Address)

Выдает сообщение:
subscript out of range

Попробовал еще такой код:
MsgBox (Cells(5, 5).Text)
Работает нормально

Пожалуйста подскажите что не так

попробуйте в отладчике посмотреть что выдает код Cells(5, 5).Hyperlinks(1)

subscript out of range

(0)  у тебя не указан явно лист
т.е. если на текущем листе в ячейке (5,5) есть ссылка то ок
нет будет ошибка

MsgBox (ActiveSheet.Cells(5, 5).Hyperlinks(1).Address)

MsgBox (WorkSheet("Лист1").Cells(5, 5).Hyperlinks(1).Address)

(3) Попробовал оба варианта: все равно выскакивает та же ошибка.
MsgBox (Cells(5, 5).Text) сделал специально чтобы проверить что правильно указываю ячейку содержащую ссылку, т.е. в той ячейке наверняка есть ссылка и ошибка не из-за отсутствия ссылки в ячейке.

см (3) и не спорь

проверь активный лист

MsgBox (Cells(5, 5).value)

(4) название листа поменял в коде ?

(3) Выдает то же что в книге написано в той ячейке
(4) Поменял название листа в книге

(7) все работает идеально
и в 2003 и в 2010
уверен что гиперссылка есть ?

(9) Гиперссылка была задана формулой
ГИПЕРССЫЛКА("http://tmmp.com.ua/pic/IMG_3380.JPG";"смотреть фото")
Поэтому и не работала.

Всем спасибо за помощь!