Sub FollowHyperLink()
Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Sub NavigateToURL()
Dim IE As New InternetExplorer
Dim URL As String
URL = "www.mrexcel.com"
With IE
.Navigate (URL)
.Visible = True
End With
End Sub