Add Method (Hyperlinks Collection) Example
This example adds a hyperlink to cell A5.
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="http://example.microsoft.com", _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With
This example adds an email hyperlink to cell A5.
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="mailto:someone@microsoft.com?subject=hello", _
ScreenTip:="Write us today", _
TextToDisplay:="Support"
End With