Exemplo de apresentação de um link

Private Sub IblMail_Click()
Link = "mailto:jorgerod2@sapo.pt"
    On Error GoTo NoCanDo
    ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
    Unload Me
    Exit Sub
NoCanDo:
    MsgBox "Impossível Abrir " & Link
End Sub