コンボボックスの開いたリストを閉じるには

コンボボックスのリストを開くのはComboBox1.DropDownでできますが、閉じるのはどういう風にやればいいでしょうか。
今ユーザーフォームで
Private Sub Combobox1_Change()
ComboBox1.Clear
v = ComboBox1.Text
For i = 1 To 300
c = Worksheets("Sheet1").Cells(i, "A")
If v = Left(c, Len(v)) And Len(v) > 0 Then
ComboBox1.AddItem c
End If
Next i
ComboBox1.DropDown
End Sub
と言う風にしていますが、リストを開きっぱなしだと変な表示になってしまい、マウスクリックで一旦閉じてから開かないと変な表示になってしまうのです。
そこで一旦リストをマクロで閉じさせてから再び開きたいのですが、どうすればいいでしょうか。

No.1 ベストアンサー 回答者： ja7awu 回答日時： 2003/12/08 11:01

他のコントロールに一旦フォーカスを移せばいいと思います。

例えば、
Me.CommandButton1.SetFocus
のように。

この回答へのお礼

ありがとうございます!!!うまくいきました。

お礼日時：2003/12/08 14:22