There’s no need for VBA if all you want to do is open a Google search page one at a time.
With your search phrase in A1, use this formula, for example:
=HYPERLINK("http://www.google.com/search?q=" & A1,A1)
and fill down as far as required.
That will put a clickable link in column B, corresponding to the search phrase in column A.
solved vba code to search google using cell content as search criteria [closed]