Sub AddHyperLink(cellAddr As String, url As String, cellValue As String, sheetName as string)
dim i as Integer
i = Sheets(sheetName).Index
With Worksheets(i)
 .Hyperlinks.Add Anchor:=.Range(cellAddr), _
 Address:=url, _
 ScreenTip:="Microsoft Web Site", _
 TextToDisplay:=cellValue
End With
End Sub