Excel VBA 将单元格内容更新为可点击的超链接

Question

I have a register that has an edit sheet. The user selects the record they want to update and the code updates the report (Sheet "EditEx") with data from another sheet. the issue is there are a couple of links to sharepoint/folders that are a also recalled. The sheet updates correctly (displays the full url in the required cell - "H21") however it is not a clickable hyperlink. I just can't get it to work.

Here is the end of my code, can anyone help? Thanks.

'   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

Never use selection

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