Boa noite!!
Se esfosse para adaptar, caso realmente não consiga poste seu arquivo (COMPACTADO).
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.FollowHyperlink TextBox1
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ThisWorkbook.FollowHyperlink TextBox1
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/03/2012 7:24 pm