Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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