LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #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

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
how do I create a dropdown menu AUP Excel Discussion (Misc queries) 1 March 17th 06 07:59 PM
Dropdown menu auto recognition? Patty via OfficeKB.com Excel Discussion (Misc queries) 4 August 9th 05 05:30 PM
Show last files used in File dropdown menu Ladywulfe New Users to Excel 1 August 6th 05 07:53 AM
dropdown menu \PA via OfficeKB.com\ Excel Discussion (Misc queries) 7 July 9th 05 12:50 PM
create dropdown menu Anthony Excel Worksheet Functions 1 January 29th 05 01:30 PM


All times are GMT +1. The time now is 12:22 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"