Изменение ListFillRange Dropbox непосредственно из его меню свойств с помощью VBA

Question

Для начала я создал Определенные имена на вкладке Формулы, чтобы связать указанные c формулы с разделом ListFillRange в свойствах ActiveX ComboBox. Этот метод прекрасно работает сам по себе, но я хочу сделать один динамический c ComboBox, от которого зависят все остальные выпадающие списки.

Например: если Dynami c ComboBox сообщает «кошки», зависимый ComboBox переключается с списка типов собак на список типов кошек.

С тем, что у меня есть самый простой способ, это сделать список моих уже определенных имен на вкладке формул и просто «скопировать» и «вставить» их в ListFillRange в свойствах ComboBox, но все, что у меня есть пока что чтение говорит только о чтении списка непосредственно из электронной таблицы в ComboBox.

Вот несколько кодов, которые я пытался:

Я не мог заставить этот код написать что-либо на самом деле

Private Sub ComboBox9_Click()
     With Selection
        .ListFillRange = "Profile1"
        .LinkedCell = "$A$9"
        .DropDownLines = 33
        .Display3DShading = False
    End With
End Sub

Этот код работает для копирования формулы в ComboBox , но я хочу, чтобы оно копировалось в свойства и зависело от формулы, если это вообще возможно. Еще лучше будут предопределенные имена, которые я упомянул ранее, и исключение из них.

Private Sub ComboBox9_Click()
   With ComboBox9.Object
        .Object.ListFillRange = "Profile1" 'Worksheets("Kawneer").Range("S3").Formula
         Me.ComboBox9.Properties.ListFillRange = Worksheets("Kawneer").Range("S3").Formula
   End With
End Sub