Using Macro for Hyperlinks

[davygryan]

I am hoping to have some Hyperlink buttons on a spreadsheet.
I can have the links there and just click the cell but the buttons look that bit fancier.

My link currently is =HYPERLINK(("[L:\General_Data\Cordis_QC\Sample tracker\2011\Tracker 2011.xls]'Tracker'!A1"),"Analytical Sample Tracker")

How do I set up the MAcro to activate the button.
So far I have

Sub Button1_Click()

End Sub

 

[tweedle]

Sub Button1_Click()
 
End Sub

...a fine start ...

I'll expound a bit with something like this...
Since you seem to have the Hyperlink in the formula, TargetFromHLinkFormula extracts the texty parts to feed to
ActiveWorkbook.FollowHyperlink

Sub Button1_Click()
ActiveWorkbook.FollowHyperlink TargetFromHLinkFormula(Range("H8")) '< Replace your range here
End Sub
 
Function TargetFromHLinkFormula(rng As Range) As String
With rng
Retval$ = Mid(.Formula, _
InStr(1, .Formula, "[", vbTextCompare) + 1, _
InStr(1, .Formula, "]", vbTextCompare) - 1 - _
InStr(1, .Formula, "[", vbTextCompare) _
)
End With
TargetFromHLinkFormula = Retval$
End Function