What do the warning messages say????????

I create a Form with a combobox  inside. When I press the button the
Form will popup.
The problem is when I try to enter something in the combobox, there
is a Compile Error saying" Method or data member not found"
Here is my code:
Private Sub combo_Change()
Dim x As Integer
Set myBar = CommandBars.Add(Name:="Custom1", Position:=msoBarPopup,
Temporary:=False)

With combo
.Controls.Add Type:=msoControlButton, ID:=3
.Controls(1).Style = msoButtonCaption
.Controls.Add Type:=msoControlComboBox
With .Controls(2)

.Style = msoComboLabel
.AddItem ("1st item")
.AddItem ("2nd item")
.AddItem ("3rd item")
x = combo.ListCount
End With
End With
myBar.ShowPopup

combo.Value = x
End Sub

... and what is your code??????

I create a Form with a combobox  inside. When I press the button the
Form will popup.
The problem is when I try to enter something in the combobox, there
is a Compile Error saying" Method or data member not found"
Here is my code:
Private Sub combo_Change()
Dim x As Integer
Set myBar = CommandBars.Add(Name:="Custom1", Position:=msoBarPopup,
Temporary:=False)

With combo
.Controls.Add Type:=msoControlButton, ID:=3
.Controls(1).Style = msoButtonCaption
.Controls.Add Type:=msoControlComboBox
With .Controls(2)

.Style = msoComboLabel
.AddItem ("1st item")
.AddItem ("2nd item")
.AddItem ("3rd item")
x = combo.ListCount
End With
End With
myBar.ShowPopup

combo.Value = x
End Sub


I think I really need a combobox example to understand what the Help
talking about.

The basic  problem is that your code is trying to add  a popup menu to a
combobox. This does not make sense.

I suspect you do not want a commandbar at all. You probably just need to add
a button to the userform and make it visible when the combobox  item is
selected.


Perhaps a description of what the user will do and see would help  us
understand.

I think I should start from the basic.So I just create a combo box
in the excel sheet and want to add  a default name
list, "A","B","C".The user can choose the name from the list  or
enter a new name in the box. The entered names will be stored in a
column, say, column A.

firstly, I try to add the name list "A", "B", "C" to the downlist of
the combobox. I write the following codes:

Private Sub ComboBox1_Change()
ComboBox1.Value = "cc"
ComboBox1.AddItem "A"
ComboBox1.AddItem "B"
ComboBox1.AddItem "C"
End Sub

When I come back to excel sheet, there is no name in the downlist of
the box.Only when I change the text of the box, the list come out. I
think my codes create a run-time downlist. Could you tell me how to
create a default unchanged name list?

Two ways I can think of. One is to have a named range in the workbook
somewhere and set the RowSource to the name.

The other is to put your initialising code in the Workbook open event. (In
"This Workbook" in the VBE drop down the Left dropdown list  and select
"workbook" then the right drop down list and select open). This code will
fill the combobox  every time the workbook is opened.

Private Sub Workbook_Open()
With Worksheets("Sheet1").ComboBox1.
Value = "cc"
AddItem "A"
AddItem "B"
AddItem "C"
end with
End Sub