Открыть интернет сайт

Function Open_SQL()
Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://www.sql.ru/"
End Function