Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I've created a new toolbar combobox but I can't figure out how to retrieve
the value that's been selected... Help Here's the code... ------------------------------------------------------------------------------------------------ Sub JumpToAdd() Set MyBar = CommandBars.Add(Name:="Jump To:", Position:=msoBarTop, Temporary:=True) MyBar.Visible = True Set newCombo = MyBar.Controls.Add(Type:=msoControlComboBox) With newCombo .Width = 100 .AddItem "Home" .AddItem "Properties" .AddItem "PropertiesMPa" .AddItem "Chrysler Stats L" .AddItem "Chrysler Stats T" .AddItem "Chrysler Stats D" .AddItem "Ford Stats L" .AddItem "Ford Stats T" .AddItem "Ford Stats D" .AddItem "GM Stats L" .AddItem "GM Stats T" .AddItem "GM Stats D" .AddItem "GMC D Stats L" .AddItem "GMC D Stats T" .AddItem "GMC D Stats D" .AddItem "Honda Stats L" .AddItem "Honda Stats T" .AddItem "Honda Stats D" .AddItem "Nissan Stats L" .AddItem "Nissan Stats T" .AddItem "Nissan Stats D" .AddItem "Toyota Stats L" .AddItem "Toyota Stats T" .AddItem "Toyota Stats D" .Style = msoComboNormal .OnAction = "JumpTo" End With End Su ------------------------------------------------------------------------------------------------ Sub JumpTo() **** Retrieve Combobox Value and Execute Script **** End Sub |