Abrir página web desde label en excel

Tengo este código que anterior mente me fusionaba pero no se porque ya no funciona. Les agradezco por sus prontas respuestas.

Private Sub Label1_Click()
enlace = "http://google.com.gt"
    On Error GoTo Nocando
    ActiveWorkbook.FollowHyperlink Address:=enlace, NewWindow:=True
    Unload Me
    Exit Sub
Nocando:
    MsgBox "No se puede abrir   " & enlace & "   Verifique su Fuente de Internet", vbCritical, "Error de Conexion"
End Sub

2 respuestas

Respuesta
2

Cambia tu macro por lo siguiente, ejecuta la macro y dime qué mensaje de error te aparece:

Private Sub Label1_Click()
    ActiveWorkbook.FollowHyperlink Address:="http://google.com.gt", NewWindow:=True
End Sub

sal u dos

Este es el error que me sale

¿Qué versión de excel tienes?


Entra al menú de VBA, Herramientas, Referencias y en la ventana que te aparece de Referencias, revisa que tengas activadas las siguientes:


sal u dos

Respuesta
1

Gracias por la respuesta pero no me sirvió, no funciona

Fíjate las referenicas en vba, ¿descargaste el ejemplo y no te funciona? Si no descárgalo y fíjate que referencias tiene y la que te falta en tu macro, ese es el problema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas