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