Ayuda para codigo de boton

Hola a todos, tengo este codigo que he recopilado de diferentes post, soy neofito en vba pero le hago la lucha, el codigo es el siguiente
Sub Haga_Clic_Aqui()
'
' Haga_Clic_Aqui Macro
' Boton para hyperlink
'
Range("G6").Select
ActiveCell.FormulaR1C1 = "=Hyperlink(R[0]C[2])"
Range("G6").Activate
Range("G6").Clear
Range("C6").Select

End Sub
en la celda G6 sale (=hiperlink(I6)) pero no sigue al hyperlink
lo que quiero que haga el boton es seguir el hyperlink pero con este codigo no lo hace, si me pudieran ayudar a modificarlo Gracias

Hola Magoba,

Es que el código que pones sólo pone la formula en la celda.

Para que el programa siga al hyperlink tienes que usar el siguiente código (en lugar de la línea de ActiveCell...):

Please Login or Register  to view this content.

Tienes que rellenar la celda de manera parecida a lo que ya tienes en el código: entre comillas etc.

Espero haber sido de ayuda.

Muchas gracias duncandhu fijate que no puedo hacer que trabaje con este codigo siempre presente un error te agradesco la ayuda, fijate que estoy usando ahora un codigo que se llama Play MP3
que tambien baje de este sitio y esta trabajando bien. muchas gracias por tu apoyo