Adds two hyperlinks to active sheet : ActiveWorksheet « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. ActiveWorksheet

Adds two hyperlinks to active sheet

 
Public Sub AddHyperlinks()
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("A1"), _
        Address:="", _
        SubAddress:="'Sheet1'!A1", _
        ScreenTip:=" Goes to Sheet1", _
        TextToDisplay:=" Link to Sheet1"
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("A3"), _
        Address:=" http://www.microsoft.com/ms.htm", _
        ScreenTip:=" Microsoft", _
        TextToDisplay:=" Microsoft web site"
End Sub

 

Related examples in the same category