Codigo para botón de comando

[magoba]

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

 

[magoba]

le agregue la sig linea y tampoco funciona

Range("G6").Select
ActiveCell.FormulaR1C1 = "=Hyperlink(R[0]C[2])"
' Range("G6").Activate
Range("G6").Hyperlinks(1).Follow
' Range("G6").Clear
Range("C6").Select

End Sub

 

[James006]

Hola,

Lo mas facil seria de intentar el codigo siguiente:

Sub [COLOR=#333333]Haga_Clic_Aqui[/COLOR]()    
    Range("I6").Hyperlinks(1).Follow
End Sub

Hasta Luego

 

[magoba]

James006 Gracias por tu ayuda, te comento que al hacer click en el boton sale el cuadro de depuracion y en la linea del codigo
Range("I6").Hyperlinks(1).Follow
se pone color amarillo y se para la accion. Que podra ser?

 

[James006]

Seguro que debes comprobar el contenido de la celda I6 ...
que debe tener una dirección de sitio válida ...
puedes probar por ejemplo : Google

 

[magoba]

Gracias James006 fijate que en la celda I6 tengo C:\Musica\Karaoke\Vicente Fernandez - Mujeres Divinas.cdg
en la celda G6 =Hipervinculo(I6) si le hago click a la celda "G6" me toca la cancion
tu codigo lo probe con Range("G6").Hyprlinks(1).Fallow el (1) lo probe tambien con (I) y con ninguno trabaja
te agradesco tu ayuda