Private Sub Worksheet_Change(ByVal Target As Range)

Dim Tgtrw As Long

Tgtrw = Target.Row

If Target.Row = Range("A" & Tgtrw).Row And Target.Column = Range("A" & Tgtrw).Column Then



Dim IE As New InternetExplorer

'IE.Visible = True

IE.navigate "gothere.sg/maps#q:"

'& Range("A" & Tgtrw).Value

Do

DoEvents

Loop Until IE.readyState = READYSTATE_COMPLETE

'Dim Doc As HTMLDocument

Set Doc = IE.document

' Dim sDD As String

Doc.getElementById("q").Value = Range("A" & Tgtrw).Value

Doc.getElementById("ss").Click

sDD = Trim(Application.WorksheetFunction.Substitute(Doc.getElementById("panel").getElementsByClassName("place")(0).getElementsByClassName("locf")(0).innerText, "Singapore " & Range("A" & Tgtrw).Value, ""))

IE.Quit

' Dim aDD As Variant

aDD = Split(sDD, " ") 

Range("B" & Tgtrw).Value = Left(sDD, Application.WorksheetFunction.Find(" ", sDD) - 1)

Range("C" & Tgtrw).Value = Right(sDD, Len(sDD) - Application.WorksheetFunction.Find(" ", sDD))

End If

End Sub