Adding Hyperlink with Excel VBA

Question

I am trying to add a hyperlink to an excel cell like this but getting an error:

rng.Formula = "=HYPERLINK(cell.Offset(0, 3).Value,"">"")"

Basically the hyperlink is located within another cell and i want to have the text ">" appear in the new hyperlink cell.

Answer 1

You are missing some double quotes:

Sub dural()
    Dim rng As Range, cell As Range
    Set rng = Range("A1")
    Set cell = Range("A2")

    rng.Formula = "=HYPERLINK(""" & cell.Offset(0, 3).Value & ""","">""  )"

End Sub

For example:

Answer 2

尝试使用超链接集合：

Sheet1.Hyperlinks.Add Sheet1.Range("A1"), "http://longLinkAddressHere", , , ">"