Danial,

I messed up on the event code you need this to prevent any hyperlink calling
your code

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
If Target.Range.Address = "$A$1" Then
Mysub
Exit Sub
End If
End Sub

Mike

"Mike H" wrote:

Daniel,


Put some text in a cell (This uses A1) and then
Insert|Hyperlink
for the address put the cell the 'hyperlink is in i.e it goes nowhere a
circular hyperlink.

The add this as a workbook module from which you call your sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
Mysub
End Sub

and your sub

Sub Mysub()
MsgBox "In mysub"
'do lots of things
End Sub

You can do exactly the same from the worksheet 'follow hyperlink event.

Mike


"Daniel Bonallack" wrote:

Following on from my last post, what I would really like is
- to have a hyperlink-type text in a cell, so that when you mouse over it,
it becomes a hand icon
- but instead of linking this to a file or webpage, I want it to run a maco.

Is this possible?

Thanks
Daniel