Multiple hyperlinks in a single cell

Adding good/bad icons to the Rt mouse click menu is a great idea. I'll give it a go.

Many Thanks,

Gary
 
Hi Ken,

I need to modify the "CheckAndColorLinks" routine to add the specific value of FaceID when a link is good or bad.

How do you pass that value to the Worksheet_SelectionChange(ByVal Target As Range).

The .FaceIDs I will be using are 2876 and 6843, passed to variable iICON

i.e.

Code:
With Application.CommandBars("Cell").Controls

With .Add
.Caption = Hyp1 'Navigate to Hyperlink1
.OnAction = ThisWorkbook.Name & "!Nav_Hyp1" 'in RClick
.Tag = "Hyperlink1" 'cControlTag
.BeginGroup = True
.FaceID = iICON
End With

End With

Thanks,

Gary
 
Hey Gary,

I haven't forgotten, but I'm out of time for tonight. I'll try and circle back on this over the weekend, although it's kind of a nutty one here.

FYI... I've reformatted your code to display better in the forum. When you're posting code, if you wrap it with code tags it comes out looking nicer. To do that, you'd write:

[code]Your code here[/code]

And it will end up coming out like this:
Code:
Your code here

Cheers,
 
Back
Top