IEのイベントを拾いたいので、シートにコードを書いて拾ってみた。 ※カッコイイ人は、クラスモジュールに書くんだけど、三流なのでシートに書いて逃げてみた。 ※※一流プログラマーさんが書き直してくれるのに期待して(ぉぃぉぃ) Option Explicit 'シートにコードを書いてみては? Dim WithEvents objIE As InternetExplorer 'イベント拾いたいので Dim WithEvents objNEW_IE As InternetExplorer 'でオブジェクト変数を定義して_NewWindow2で新規IEを作成、 Private Sub testMAIN() '初めの頭は普通に代入。 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Go