VBA - Get URL from Google First Result

[neodjandre]

I am trying to use this code to get the official website of each company (names in column B). However the output is always a consent URL from google. Any other ways of going about this?

Private Sub FeelingLucky()
    Dim i As Long
    Dim IE As Object
       
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
      
    For i = 2 To WorksheetFunction.CountA(Range("B:B"))
        IE.Navigate "http://www.google.com/search?ie=UTF-8&oe=UTF-8&sourceid=navclient&gfns=1&q=" & Cells(i, 2)
        Do While IE.Busy
            Application.Wait DateAdd("s", 1, Now)
        Loop
  
        Cells(i, 3) = IE.Document.Url
    Next i
  
    IE.Quit
  
End Sub

 

[neodjandre]

also the above code doesn't seem to be compatible with MAC VBA

 

[Jim Gordon]

There are two issues. Internet Explorer no longer exists for Mac OS. The other is that Apple does not allow Mac applications to start and run other applications. You might be able to use AppleScript and MacScript to accomplish your goal.