Adding a hyperlink VBA : <p>I am desperately searching for a solution for my following problem in VBA for Excel: </p>

<p>I want to request user input asking for entering a website link. The code should transfrom this into a hyperlink (like excel does with the HYPERLINK formula). The output should add the word <em>website</em> to the ActiveCell with a hyperlink to the input website. </p>

<p>this is my latest approach: </p>

<blockquote>
<pre><code>Sub add_hyperlink()
    link = Chr(34) &amp; InputBox("Enter link") &amp; Chr(34)
    ActiveSheet.Hyperlinks.Add anchor:=ActiveCell, Address:=link, 
    ScreenTip:="Follow this link", TextToDisplay:="website"
End Sub
</code></pre>
</blockquote>

<p>Thanks for your help!</p>
