OpenIExplorer

Sub LanciaBrowser()
Dim TheBrowser As Object
Set TheBrowser = CreateObject("InternetExplorer.Application")
With TheBrowser
.Visible = True
.Navigate ("http://www.indirizzo.com")
End With
End Sub