在工作表上显示google地图

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target <> Range("c2") Then Exit Sub
    Dim surl As String
    Dim wait_time As Date
    surl = "http://maps.google.co.jp/"
    Application.ScreenUpdating = False
    With ActiveSheet.googlemap
    .navigate surl
    Do While .busy
        DoEvents
    Loop
    Do While .readystate <> 4
        DoEvents
    Loop
    .document.all("q_d").Value = Range("c5").Value
    .document.forms(0).submit
    wait_time = DateAdd("s", 2, Now())
    Do While Now() < wait_time
        DoEvents
    Loop
    .document.all("paneltoggle2").Click
    End With
    ActiveSheet.Hyperlinks.Add
    Anchor:=range("C7"),Address:=range("C7").Value
    Application.ScreenUpdating = True
End Sub