excel activexコンボボックスを作成する方法

Question

私はVBAでこれをやろうとしていますが、私が行っていることはすべて動作しません。

Me.ComboBox1.AddItem "Apple", 1 

コンボボックスに何も表示されず、下矢印をクリックしても何も起こりません。それはちょうどそこに立ち往生していると思わない、私はdevモードです。ありがとう！

Private Sub Workbook_Open 

With ThisWorkbook.Sheets("Sheet1").ComboBox1 
.AddItem "Apple" 
End With 

End Sub 

ブックを開くと、コードが自動的にコンボボックスを更新します。申し訳ありませんが、私は（はThisWorkbookモジュールに追加します）、次のようなものを試してみてください

Answer 1

をExcelに本当に新しいです。