MWhen I try to excute this code I get a compile error on Controls saying the
Method or data member not found. How do I declare myControl so this code
will work?

Dim myBar As CommandBars
Dim myControl As CommandBarControls

Set myBar = CommandBars("Custom")
Set myControl = myBar.Controls.Add(Type:=msoControlComboBox, ID:=1)

Thanks,
Sam