Home |
Search |
Today's Posts |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]() 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 |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
how do I create a dropdown menu | Excel Discussion (Misc queries) | |||
Dropdown menu auto recognition? | Excel Discussion (Misc queries) | |||
Show last files used in File dropdown menu | New Users to Excel | |||
dropdown menu | Excel Discussion (Misc queries) | |||
create dropdown menu | Excel Worksheet Functions |