Excel VBA Обновление содержимого ячейки для гиперссылки

Question

У меня есть регистр, в котором есть лист редактирования. Пользователь выбирает запись, которую он хочет обновить, и код обновляет отчет (лист «EditEx») данными из другого листа. проблема в том, что есть несколько ссылок на sharepoint / папки, которые также вызваны. Лист обновляется корректно (отображает полный URL-адрес в необходимой ячейке - «H21»), однако это не интерактивная гиперссылка. Я просто не могу заставить его работать.

Вот конец моего кода, кто-нибудь может помочь? Спасибо.

'   Refresh and unhide all rows
    ActiveWorkbook.RefreshAll
    Sheets("EditEx").Select
    ActiveWindow.SmallScroll Down:=-120
    Rows("29:160").Select
    Selection.EntireRow.Hidden = False
    Rows("32:56").Select
    Rows("32:56").EntireRow.AutoFit
    Rows("76:105").Select
    Rows("76:105").EntireRow.AutoFit
    Rows("125:154").Select
    Rows("125:154").EntireRow.AutoFit
' ISSUE IS HERE
    Range("H21").Hyperlinks.Add Anchor:=Selection, Address:=Selection

'   select first input cell
    Range("C6:D6").Select

    MsgBox ("Record Retrieved. Make your changes and ensure you click 'Save Changes' to update the Master Registers")

End Sub

Answer 1

Никогда не используйте выделение

ActiveSheet.Hyperlinks.Add Anchor:=Range("H21"), _
Address:=Range("H21").Value, _
TextToDisplay:=Range("H21").Value