本示例检查单元格A1是否包含超级链接,如果有则显示该链接的地址。

Set link = Range("a1").Hyperlink

If link Is Nothing Then

MsgBox ("No Links")

Else

MsgBox (link.TextToDisplay)

End If