excel - EXCEL VBA msgboxを使用してコンボボックスにアイテムを表示する

Question

最初：ユーザーフォームを初期化するとき

以下のコードを使用してページを初期化し、コンボボックスに入力できるようにします。

For Each cell In rangeA
    If cell.Value <> "" Then
        ComboBox1.AddItem cell.Value
    Else
    End If
Next

次

コンボボックス内のすべてのアイテムを呼び出すメッセージボックスを促すボタンがあります。どうすればいいですか？前もって感謝します。