View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
davesexcel
 
Posts: n/a
Default dropdown menu or Jump menu


Add a module to your project and copy the following macro code into it.

Put the hyperlinks into the Drop Down's List Range and assign the macro

to the Drop Down. When you select a item in the Drop Down, the
hyperlink will be activated.


Sub GoToHyperlink()


Dim DropDownName
Dim LinkName


On Error GoTo NoLink


DropDownName = Application.Caller


With ActiveSheet.Shapes(DropDownName).ControlFormat
LinkName = .List(.ListIndex)
End With


ActiveSheet.Hyperlinks(LinkName).Follow


Exit Sub


NoLink:
MsgBox "Hyperlink " & LinkName & " not found.", vbExclamation


End Sub


I would use the combo box from the forms toolbar, right click on it to
assign the the macro, and also right click on it to go to format
control and assign the list range to it


--
davesexcel
------------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
View this thread: http://www.excelforum.com/showthread...hreadid=526338