Faça buscas no navegador diretamente a partir do MS Excel.
Sub SearchGoogle()
Dim nSite As Object
Set nSite = CreateObject ("InternetExplorer.application")
Let nSite.Visible = True
nSite.Navigate "http://www.google.com/search?hl=en&ie=UTF-8&q=" & ActiveCell.Text
End Sub
Conheça também estes outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos


Nenhum comentário:
Postar um comentário