Creating a web hyperlink in a cell

[Hardware Man]

Let's say that in sheet1 cell A5 I have the text version of a web address.

What I'd like to do is use VBA to place that information into sheet2 cell B7 and turn it into a clickable hyperlink. It would also be nice if the cell just displayed "Link" and the actual address was not visible.

I'm sure that this is easy for most of the gurus here, but I'm kinda stumped.

 

[Nine Zero]

Hello,

Try this out

Sub Hyper()


With Worksheets("sheet1")
.Hyperlinks.Add _
Anchor:=Worksheets("sheet2").Range("B7"), _
Address:=Worksheets("sheet1").Range("A5").Value, _
TextToDisplay:="Link"
End With


End Sub

 

[Hardware Man]

Worked Great! Thanks!