如何使用URL末尾的单元格值将Excel中的单元格转换为超链接

Question

我已经在Excel中的VBA中创建了一个程序，除了将单元格的值取并将其添加到超链接的末尾，然后将超链接添加到显示该值的单元格的那一部分之外，其他所有功能都可以正常运行。 这是我用于此部分的代码：

'Hyper Link column A

Dim WorkRng As Range
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", "Select Range", WorkRng.Address, Type:=8)

Dim l As Long
Dim addr As String
For l = WorkRng.Rows.Count To 1 Step -1
    If WorkRng.Cells(l, 1).Value <> "" Then
        addr = CStr("https://True&RequestID=") & CStr(WorkRng.Cells(l, 1).Value)
        WorkRng.Cells(l, 1).Hyperlink.Add Anchor:=WorkRng.Cells(l, 1), _
        Address:=addr, _
        TextToDisplay:=CStr(WorkRng.Cells(i, 1).Value)
    End If
Next

它在这一部分一直处于中断状态：

        WorkRng.Cells(l, 1).Hyperlink.Add Anchor:=WorkRng.Cells(l, 1), _
        Address:=addr, _
        TextToDisplay:=CStr(WorkRng.Cells(i, 1).Value)

任何建议都将非常有帮助。