Try something like the following:

Sub Init()
Dim Cbx As Office.CommandBarComboBox
Set Cbx = Application.CommandBars("Standard").Controls.Add( _
Type:=msoControlComboBox)
With Cbx
.Caption = "Choose"
.Tag = "Combobox1"
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.OnAction = ThisWorkbook.Name & "!CbxClick"
End With
End Sub

Sub CbxClick()
Dim Cbx As Office.CommandBarComboBox
Set Cbx = Application.CommandBars.ActionControl
MsgBox "You choose: " & Cbx.List(Cbx.ListIndex)
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"coosk" wrote in message
...

Is is possible to place combo boxes in a toolbar? How is it done?


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/