Hello,

I am definitely baffled. I am trying to run code when a hyperlink is
clicked. I am using Excel 2007, the hyperlink is created in a cell on Sheet
1 using "=hyperlink()", the hyperlink is to a video clip, and events are
definitely enabled. I had tried two things, either of which would be fine:

1. I put the following code in Sheet1, and it did not respond at all. What
am I doing wrong?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Sheet1").Range("B1") = "It Ran"
End Sub

2. I put the following code in Sheet1, and it does run. The only issue is
that I would like to be able to terminate the hyperlink before the video pops
up. Any thoughts?

Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column = 2 Then
Sheets("Sheet1").Range("B1") = "It Ran"
'Want to terminate hyperlink here. How to do?
End If

End Sub

Any help in understanding either one of these would be greatly appreciated.
Thank you in advance.

Use an Inserted hyperlink, not the worksheet function.
--
Gary''s Student - gsnu201001


"ZipCurs" wrote:

Hello,

I am definitely baffled. I am trying to run code when a hyperlink is
clicked. I am using Excel 2007, the hyperlink is created in a cell on Sheet
1 using "=hyperlink()", the hyperlink is to a video clip, and events are
definitely enabled. I had tried two things, either of which would be fine:

1. I put the following code in Sheet1, and it did not respond at all. What
am I doing wrong?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Sheet1").Range("B1") = "It Ran"
End Sub

2. I put the following code in Sheet1, and it does run. The only issue is
that I would like to be able to terminate the hyperlink before the video pops
up. Any thoughts?

Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column = 2 Then
Sheets("Sheet1").Range("B1") = "It Ran"
'Want to terminate hyperlink here. How to do?
End If

End Sub

Any help in understanding either one of these would be greatly appreciated.
Thank you in advance.

Fantastic. That piece of information is exactly what I needed. My next
issue is how to make the hyperlink show the "path" when scrolled over, but
not actually run unless I decide based on some parameters that it should be
run. Again, any assistance is greatly appreciated.

"Gary''s Student" wrote:

Use an Inserted hyperlink, not the worksheet function.
--
Gary''s Student - gsnu201001


"ZipCurs" wrote:

Hello,

I am definitely baffled. I am trying to run code when a hyperlink is
clicked. I am using Excel 2007, the hyperlink is created in a cell on Sheet
1 using "=hyperlink()", the hyperlink is to a video clip, and events are
definitely enabled. I had tried two things, either of which would be fine:

1. I put the following code in Sheet1, and it did not respond at all. What
am I doing wrong?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Sheet1").Range("B1") = "It Ran"
End Sub

2. I put the following code in Sheet1, and it does run. The only issue is
that I would like to be able to terminate the hyperlink before the video pops
up. Any thoughts?

Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column = 2 Then
Sheets("Sheet1").Range("B1") = "It Ran"
'Want to terminate hyperlink here. How to do?
End If

End Sub

Any help in understanding either one of these would be greatly appreciated.
Thank you in advance.

Can you define what the differences are?
--
Regards

Rick


"Gary''s Student" wrote:

Use an Inserted hyperlink, not the worksheet function.
--
Gary''s Student - gsnu201001


"ZipCurs" wrote:

Hello,

I am definitely baffled. I am trying to run code when a hyperlink is
clicked. I am using Excel 2007, the hyperlink is created in a cell on Sheet
1 using "=hyperlink()", the hyperlink is to a video clip, and events are
definitely enabled. I had tried two things, either of which would be fine:

1. I put the following code in Sheet1, and it did not respond at all. What
am I doing wrong?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Sheet1").Range("B1") = "It Ran"
End Sub

2. I put the following code in Sheet1, and it does run. The only issue is
that I would like to be able to terminate the hyperlink before the video pops
up. Any thoughts?

Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column = 2 Then
Sheets("Sheet1").Range("B1") = "It Ran"
'Want to terminate hyperlink here. How to do?
End If

End Sub

Any help in understanding either one of these would be greatly appreciated.
Thank you in advance.

Well, the dialog box for Insert Hyperlink does allow a screentip to be added.
Perhaps the screentip can be set programmatically.

Let me know how you make out.


--
Gary''s Student - gsnu201001


"ZipCurs" wrote:

Fantastic. That piece of information is exactly what I needed. My next
issue is how to make the hyperlink show the "path" when scrolled over, but
not actually run unless I decide based on some parameters that it should be
run. Again, any assistance is greatly appreciated.

"Gary''s Student" wrote:

Use an Inserted hyperlink, not the worksheet function.
--
Gary''s Student - gsnu201001


"ZipCurs" wrote:

Hello,

I am definitely baffled. I am trying to run code when a hyperlink is
clicked. I am using Excel 2007, the hyperlink is created in a cell on Sheet
1 using "=hyperlink()", the hyperlink is to a video clip, and events are
definitely enabled. I had tried two things, either of which would be fine:

1. I put the following code in Sheet1, and it did not respond at all. What
am I doing wrong?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Sheet1").Range("B1") = "It Ran"
End Sub

2. I put the following code in Sheet1, and it does run. The only issue is
that I would like to be able to terminate the hyperlink before the video pops
up. Any thoughts?

Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column = 2 Then
Sheets("Sheet1").Range("B1") = "It Ran"
'Want to terminate hyperlink here. How to do?
End If

End Sub

Any help in understanding either one of these would be greatly appreciated.
Thank you in advance.

Rick,

In the case of video or audio files, I would want to process them
differently. Images, documents, etc could just run. Right now my thought is
that I would prevent the video and audio files from running, and then run the
files the way that I want them run.

I hope this helps.

"Rick S." wrote:

Can you define what the differences are?
--
Regards

Rick


"Gary''s Student" wrote:

Use an Inserted hyperlink, not the worksheet function.
--
Gary''s Student - gsnu201001


"ZipCurs" wrote:

Hello,

I am definitely baffled. I am trying to run code when a hyperlink is
clicked. I am using Excel 2007, the hyperlink is created in a cell on Sheet
1 using "=hyperlink()", the hyperlink is to a video clip, and events are
definitely enabled. I had tried two things, either of which would be fine:

1. I put the following code in Sheet1, and it did not respond at all. What
am I doing wrong?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Sheet1").Range("B1") = "It Ran"
End Sub

2. I put the following code in Sheet1, and it does run. The only issue is
that I would like to be able to terminate the hyperlink before the video pops
up. Any thoughts?

Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column = 2 Then
Sheets("Sheet1").Range("B1") = "It Ran"
'Want to terminate hyperlink here. How to do?
End If

End Sub

Any help in understanding either one of these would be greatly appreciated.
Thank you in advance.

That was amazingly easy. I used the line of code below and it gives me
exactly what I am looking for. Thank you for the nudge in the right
direction.

"Gary''s Student" wrote:

Well, the dialog box for Insert Hyperlink does allow a screentip to be added.
Perhaps the screentip can be set programmatically.

Let me know how you make out.


--
Gary''s Student - gsnu201001


"ZipCurs" wrote:

Fantastic. That piece of information is exactly what I needed. My next
issue is how to make the hyperlink show the "path" when scrolled over, but
not actually run unless I decide based on some parameters that it should be
run. Again, any assistance is greatly appreciated.

"Gary''s Student" wrote:

Use an Inserted hyperlink, not the worksheet function.
--
Gary''s Student - gsnu201001


"ZipCurs" wrote:

Hello,

I am definitely baffled. I am trying to run code when a hyperlink is
clicked. I am using Excel 2007, the hyperlink is created in a cell on Sheet
1 using "=hyperlink()", the hyperlink is to a video clip, and events are
definitely enabled. I had tried two things, either of which would be fine:

1. I put the following code in Sheet1, and it did not respond at all. What
am I doing wrong?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Sheet1").Range("B1") = "It Ran"
End Sub

2. I put the following code in Sheet1, and it does run. The only issue is
that I would like to be able to terminate the hyperlink before the video pops
up. Any thoughts?

Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column = 2 Then
Sheets("Sheet1").Range("B1") = "It Ran"
'Want to terminate hyperlink here. How to do?
End If

End Sub

Any help in understanding either one of these would be greatly appreciated.
Thank you in advance.