musicgold
09-28-2012, 09:33 AM
Hi,
I am not sure why but I am getting a runtime error 91 at the red line in the following code.
For Each oCell In Selection
Filler = Trim(oCell.Value)
If Filler <> "" Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://maps.google.com/"
Do While IE.Busy: DoEvents: Loop
Set htmlDoc = IE.document
htmlDoc.getElementById("gbqfq").Value = Filler
htmlDoc.getElementById("gbqfb").Click
End If
Next
Thanks,
MG.
I am not sure why but I am getting a runtime error 91 at the red line in the following code.
For Each oCell In Selection
Filler = Trim(oCell.Value)
If Filler <> "" Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://maps.google.com/"
Do While IE.Busy: DoEvents: Loop
Set htmlDoc = IE.document
htmlDoc.getElementById("gbqfq").Value = Filler
htmlDoc.getElementById("gbqfb").Click
End If
Next
Thanks,
MG.