Sorry for the dely in replying, Andy - that works fine!
For completeness (and in case anyone else looks at this thread), I've included the completed code I've used (with an additional line to cancel the "edit" if the hyperlkink had been double clicked - is this what you meant, or did you mean to edit the ? (sorry, I'm new to VB)).
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo ErrHandler
If InStr(1, Target.Cells(1, 1).Formula, "HYPERLINK(", vbTextCompare) > 0 Then
'If InStr(1, Target.Formula, "HYPERLINK(", vbTextCompare) > 0 Then
'MsgBox "Hyperlinked here from " & Sh.Name & "!" & Target.Address
'Insert other code here
Cancel = True
End If
ErrHandler:
Cancel = True
Exit Sub
End Sub
Bookmarks