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

質問

コンボボックスのリストを開くのは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 · ベストアンサー

他のコントロールに一旦フォーカスを移せばいいと思います。
例えば、
Me.CommandButton1.SetFocus
のように。

お礼

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