
Sub Rectangle1_Click()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "www.google.it"
While ie.busy
DoEvents
Wend
End Sub |
Sub Rectangle1_Click()
Dim ie As Object
Dim ind as String
Ind = Range("A1").Value
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate ind
While ie.busy
DoEvents
Wend
End Sub |
