选择其他单元格时，列表框不会失焦

Question

我填充了一个带有命名范围的列表框组件。数据跨越3列并且非常大，因此我需要在有焦点时展开列表框。我遇到的问题是，当我点击一个单元格时，控件永远不会失去焦点。为什么不失去焦点？

    Private Sub ListBox1_HasFocus()
ListBox1.Height = 300
End Sub

Private Sub ListBox1_LostFocus()
ListBox1.Height = 18.75
End Sub