Personalizar hipervínculo de búsqueda en Google

[pablo...@gmail.com]

Hola a todos
Necesito crear un hipervínculo que me abra una búsqueda en Google del texto en una celda concreta.
Es decir, si en la celda A1 tengo la palabra "casa", necesito que al ejecutar el hipervínculo ya se abra la búsqueda en Google de la palabra "casa" y no la página de inicio.
Por supuesto, el valor de A1 será variable, por lo que no me funcionaría el hipervínculo "https://www.google.es/#q=casa", sino que habría que vincularlo al texto que se pusiera en la celda

Saludos y muchas gracias a todos.

[Juan Español]

Hola Pablo:
Se podría hacer como tú dices,
1. Crear un hipervínculo en una celda distinta de A1
(Supongamos que en B1)
2. Modificar ese hipervínculo con
Range("B1").Select
Selection.Hyperlinks(1).Address = "https://www.google.es/#q=" & [A1]"
Selection.Hyperlinks(1).TextToDisplay = "https://www.google.es/#q=" & [A1]
3.Ejecutar el hipervinculo
Range("B1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Pero me pace más sencillo crear un boton y ponerle este código:
(En el caso que quieras utilizar IE, si quieres utilizar otro pues cambia la
ruta del programa)

Call Shell("C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE " &
"https://www.google.es/#q=" & [a1])


Cuenta si te sirvió o si tienes alguna duda.

Saludos.-

[pablo...@gmail.com]

Perfecto!!
Muchas gracias
Saludos