hyperlink prompt

  • Thread starter Thread starter Libby
  • Start date Start date
L

Libby

Hi there,

Does anyone know if it's possible to prompt (Do you want to go to this link,
Yes No) before following a hyperlink?

Many thanks in advance.
 
Save we have Inserted a hyperlink in cell B2. (we can't use the =HYPERLINK()
function here.)

Install the following event macro in the worksheet code area:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$B$2" Then
If Application.InputBox(prompt:="Are you sure you want to leave me??",
Type:=2) = "no" Then
Application.Goto
End If
End If
End Sub

If we type "no" we are back to B2, otherwise at are at the hyperlink
destination.
 
I think I'd tweak your code like this (because people like to enter Y or N or
YES or NO or some other upper/lower case version of Y or N.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Verify as VbMsgBoxResult

If Target.Range.Address = "$B$2" Then
Verify = Msgbox("Are you sure you wnat to leave me?",vbYesNo)
If Verify = VBNo Then
Application.Goto
End If
End If
End Sub
 
Thanks for your comments. However the link is to an external file and when I
run the code it executes after the file has been opened.
 
Back
Top