「サンプルコードを見せるから、最初のコードと比較して」
Y
藍
スキップ
オート
セーブ
おわる
'サンプル1.2_任意のURLに画面遷移する
Public Sub showURL()
'IEを格納する変数(オブジェクト型)
Dim ie As Object
'IEを起動し、変数ieに格納
Set ie = CreateObject("InternetExplorer.Application")
'IEを可視化する
ie.Visible = True
'URLに遷移する
ie.Navigate2 ("http://www.google.co.jp/")
End Sub