Ошибка Combobox ActiveX

Question

Я пытаюсь запустить activebox combobox с тремя значениями «AD», «LN» и «RSA», эти значения запускают каждый другой макрос. Я не могу это сделать. Всякий раз, когда я выбираю любую опцию, я получаю сообщение об ошибке «Объект не поддерживает это свойство или метод» в строке Select Case .List. Есть идеи? Это код.

Private Sub ComboBox1_Change() 
    With ThisWorkbook.Sheets("Operations").Shapes("ComboBox2").ControlFormat 
     Select Case .List 
      Case "AD": AD_Email 
      Case "LN": LN_Email 
      Case "RSA": RSA_Email 
     End Select 
    End With 
End Sub 

Answer 1

Попробуйте этот код вместо:

Dim ws as Worksheet 
Dim cb as Combobox 

Private Sub ComboBox1_Change() 
    Set ws = ThisWorkbook.Sheets("Operations") 
    Set cb = ws.OLEObjects("ComboBox2").Object 
     Select Case cb.Value 
      Case "AD": AD_Email 
      Case "LN": LN_Email 
      Case "RSA": RSA_Email 
     End Select 
End Sub 

Этот код не был проверен так мелкие недочеты могут быть необходимы.