Hi,
In combination with Hot-Rod's suggestion, perhaps you
can use this macro code below. It assumes using a listbox
and the linked cell is "E1". your target (destination)
cells can be in the workbook or could be Web hyperlinks.
When you click on the listbox, you're linked out..
(this may be more than you're after, but it was fun
putting together)
jeff
Sub testme()
With Selection(1)
If .Hyperlinks.Count > 0 Then
.Hyperlinks(1).Follow NewWindow:=True,
addhistory:=True
Else
If .Formula Like "=HYPERLINK(*" Then
ActiveWorkbook.FollowHyperlink .Value, _
NewWindow:=True, addhistory:=True
End If
End If
End With
End Sub
Private Sub ListBox1_Click()
Dim cc As Variant
Range("E1").Select
If Left(Selection, 5) = "http:" Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:=Selection
' "
http://spt.schwab.com", TextToDisplay:="Schwab
Home"
Else
cc = Selection
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="", SubAddress:=cc
End If
testme
End Sub
-----Original Message-----
Hi I want to create a pull down menu so that I can
access different headers and go the item i have
highlighted can it be done? if so how