Sub Make()
Dim TBar As commandBar
Dim NewDD As CommandBarControl
Set TBar = CommandBars.Add
Set NewDD = CommandBars("myBar").Controls.Add(Type:=msoControlDropdown)
With NewDD
.Caption = "Date"
.OnAction = "yourAction"
.Style = msoButtonAutomatic
For i = 1 To 2
.AddItem "Click"
Next i
.ListIndex = 1
End With
End Sub
Sub yourAction()
With CommandBars("MonthList").Controls("DateDD")
ActiveCell.value = .List(.ListIndex)
End With
End Sub