Hi, i've tried adding to code to make a single hyperlink have multiple, or in this case more than 2 addresses. If you open the attached sheet and look in the vba editor you'll see how the code looks at the moment. My question is how do i add to it so that the hyperlink will have more than 2 possible pathways.
Many thanks in advance.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Application.EnableEvents = False
For N = 1 To Range("E6").Hyperlinks.Count
Range("E6").Hyperlinks(1).Delete
Range("E6").ClearContents
Next N
If IsNumeric(Target.Value) And Target <> "" Then
Select Case Target.Value
Case Is > 0.25
ActiveSheet.Hyperlinks.Add Anchor:=Range("E6"), Address:="", SubAddress:= _
"Sheet3!A1", TextToDisplay:="Sheet3!A1"
Case Is <= 0.25
ActiveSheet.Hyperlinks.Add Anchor:=Range("E6"), Address:="", SubAddress:= _
"Sheet2!A1", TextToDisplay:="Sheet2!A1"
End Select
End If
Application.EnableEvents = True
End If
End Sub
Bookmarks