поле со списком (управление формой) вставляет имя выбранной строки в ячейку

Question

Я бы хотел вставить значение выбранного содержимого в выпадающем списке (элемент управления формой) в ячейку (B12), не добавляя кнопку, запускающую это событие.

Вот мой код;

Sub drop_down_16_change()
With Worksheets("Dashboard").Shapes("Drop Down 16").ControlFormat
Worksheets("Dashboard").Range("A12") = .List(.Value)
End With
End Sub

Однако он не работает при изменении выбранного элемента в раскрывающемся списке, работает только при запуске сценария.