Macros and Hyperlinks

[steve case]

I have a hyperlink in Cell A4 [ =HYPERLINK(B4,E4) ] I can click on it and it opens the webpage just fine.
I would like to have a macro open the web page but I am having no luck trying to figure out from Microsoft Visual Basic Help how to do that.

It's interesting, hyperlinks copied directly in from the web like the one I have in Cell J4 opens with a macro I recorded just as nicely as you please:

Range("J4").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

But change that to:

Range("A4").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False

in order to open my formula generated link, and it crashes.

So I need help

 

[steve case]

Corrected code

Sub Convert_To_Hyperlinks()
    Dim Cell As Range
    For Each Cell In Range("B4", Range("B" & Rows.Count).End(xlUp))
        If Not IsEmpty(Cell) Then
            ActiveSheet.Hyperlinks.Add Anchor:=Cell.Offset(, -1), _
                                        Address:=Cell.Value, _
                                        ScreenTip:=Cell.Offset(, 3).Value, _
                                        TextToDisplay:=Cell.Offset(, 3).Value

        End If
    Next Cell
End Sub

Fantastic!

You know, that's a couple hundred dollars worth of information, and I get it for free here. What a fantastic site (-:

Oh, yes, it worked.