Macro/Formula to "Google" search a tab??

[mrjaober]

I have two lists. One lists has a column of general company names. The other list (on a different tab) has specific company names. The two names do not necessarily match. For example, the general name may be ABC Company; the specific company name may be A.B.C. Company Inc.

I want to add a column next to the general company names that has the specific name in it. But doing so manually would take forever. It would be great if there was a macro or formula that would "Google search" the general name and come up with a list of matching specific names.

Does anyone have an idea on how to do this?

 

[BrandonWLH]

sub TestMacro()
    Dim rng As Range
    Dim link As String
    Dim page As String
    Dim x As Integer
    x = 0
    link = "http://www.google.com/search?q="
    
    Set rng = Worksheets("Sheet1").Range("H11")  'This is where the list of items you want to make links to starts.
    
    Do While Not IsEmpty(rng.Offset(x, 0))
    
        page = rng.Offset(x, 0).Value
        page = link & page
        rng.Offset(x, 1).Hyperlinks.Add _
            Anchor:=rng.Offset(x, 1), _ 
            Address:=page

        
        x = x + 1
    Loop

end sub

This code starts at the top of a word list and runs down it and puts the link next to it to do a google search until it hits a blank cell.

 

[mrjaober]

sub TestMacro()
    Dim rng As Range
    Dim link As String
    Dim page As String
    Dim x As Integer
    x = 0
    link = "http://www.google.com/search?q="
    
    Set rng = Worksheets("Sheet1").Range("H11")  'This is where the list of items you want to make links to starts.
    
    Do While Not IsEmpty(rng.Offset(x, 0))
    
        page = rng.Offset(x, 0).Value
        page = link & page
        rng.Offset(x, 1).Hyperlinks.Add _
            Anchor:=rng.Offset(x, 1), _ 
            Address:=page

        
        x = x + 1
    Loop

end sub

This code starts at the top of a word list and runs down it and puts the link next to it to do a google search until it hits a blank cell.

That's a nifty trick, but not what I need. I don't actually want to Google the list. I need a function kind of acts like Google.

You know how you can do a Find All search (Cntrl+F) and it gives you a combo box of all the possible matches and their link? I need that. The function would search a list on another tab. After I get the results in a combo box, I can click the correct one and that result would be pasted into the cell.

Thanks for the help!