リストボックスから項目を選択してセルに入力したいのです - Visual Basic - 教えて！goo

EXcel2003でマクロ作成中です。エクセルシートのＮ列を右クリックすると、ユーザーォームが現れ、その中のリストボックスから項目を選択すると選択文字が白色に反転します。
ユーザーホームの下方に設置した「入力する」ボタンをクリックする、アクティブセルにテキスト文字列が挿入されます。
Option Explicit
Private Sub CommandButton1_Click()
With ListBox1
If .ListIndex = -1 Then
MsgBox "項目を選択してくだい"
Else
ActiveCell.Value = ListBox1.list(ListBox1.ListIndex)
End If
End With
Unload UserForm1
End Sub
---------------------------
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
------------------------------
これと同じものをＢ列につくりました。エクセルシートのＢ列を右クリックすると、リストボックスが表示されますが、その中の項目を選択しようとすると、一瞬にしてユーザーフォーム自体が消えてしまい項目を
選択できません。
Private Sub CommandButton1_Click()
With ListBox2
If .ListIndex = -1 Then
MsgBox "項目を選択してくだい"
Else
ActiveCell.Value = ListBox2.list(ListBox2.ListIndex)
End If
End With
Unload UserForm2
End Sub
-----------------------------
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
------------------------------------------
まったく同じものを作って内容だけかえたのですが、できません。
どうしてでしょうか？ご教授おねがいします。