エクセルの住所録から、Google map を呼び出す

エクセルの住所録から、Google map を呼び出すスクリプトです。
既存の住所録にマクロを組み込みました。

-------------------------------------------

　　r = Target.Row
c=3
If Cells(r, c) <> "" And Target.Column = c Then

Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate ("http://maps.google.co.jp/maps?hl=ja&tab=wl")

Do While IE.Busy = True
DoEvents
Sleep (100)
Loop

IE.Document.forms(0).elements(3).Value = Cells(r, c)
IE.Document.forms(0).elements(5).Click

End If
-------------------------------------------------------

　Worksheet_SelectionChangeイベントにマクロスクリプトを書く。
c=3 これは、住所録のシートの住所がカラム3にある為で、
　住所録に合わせて変更する必要があります。
これで、住所録の住所のセルをクリックすると、Google map に住所の地図が表示される筈です。
　併せて、アパート名や部屋番号が、同じセルに記載されている場合は正常に動作しません。

　Worksheet_SelectionChangeイベントは、厄介なイベントです。色々制御を加えませんと
　思わぬ場合にマクロが動きだします。