excel on the web

[sean5215]

I have an excel spreadsheet that will be used online. When working in excel
and using the program the calls to open a hyperlink and email to an address
work fine, but when published to the web I cannot get them to work properly.
Here is the code:

Sub lblMail_Click()
Link = "mailto:[email protected]"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub

Sub lblWeb_Click()
Link = "http://www.northernfood.com"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub