Как исправить сообщение об ошибке «Невозможно получить свойство Object класса OLEobject»?

Question

Я сталкиваюсь с ошибкой во время выполнения «1004», когда не удается получить свойство Object класса OLEObject при открытии Excel. И ошибка происходит в *** кода. Я признаю, что мои навыки в VBA ограничены, и я стараюсь изо всех сил, чтобы это сработало. Тем не менее, код работает отлично после того, как я закончу сообщение об ошибке.

Я пробовал Sheet1.ComboBox1, но он не работает.

Option Explicit

Sub ListBox1_Click()

    Dim CSheet As Worksheet
    Set CSheet = Sheets("CONTROL")

    Dim InfoSheet As Worksheet
    Set InfoSheet = Sheet1

    Dim first_row As Integer
    Dim range_list As Range
    Dim ComboBx As OLEObject
    Set ComboBx = InfoSheet.OLEObjects("ComboBox1")

    ComboBx.Object.Clear ***error occurs here

    If ListBox1.ListIndex = 0 Or ListBox1.ListIndex = 3 Then 
        first_row = 13
    ElseIf ListBox1.ListIndex = 1 Then
        first_row = 5
    ElseIf ListBox1.ListIndex = 2 Then
        first_row = 9
    End If

    Do
    DoEvents

    first_row = first_row + 1
    Set range_list = CSheet.Range("H" & first_row)

    If Len(range_list) > 0 Then ComboBx.Object.AddItem (range_list)
    Loop Until range_list = ""

    ComboBx.Object.ListIndex = 0

End Sub

У меня есть activex ListBox1 и ComboBox1 на листе 1. И я намерен динамически обновлять список ComboBox1 в зависимости от ListBox1.