Создайте комбинированный список или выпадающий список программно в VBA

Question

Я мог бы успешно создать комбинированный список с использованием VBA, но только в первый раз, после этого продолжаю появляться сообщение об ошибке

Вызванный объект отключился от своего клиента.

Кто-нибудь знает, почему это происходит? Ниже моя кодировка.

    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, displayasicon:=False, Left:=224.5, Top:=34, Width:=118, Height:=18)
        .Object.AddItem "SDfsd"
        .Object.AddItem "Date"
        .Object.AddItem "Player"
        .Object.AddItem "Team"
        .Object.AddItem "Goals"
        .Object.AddItem "Number"
End With