组合框（窗体控件）将选定的字符串名称粘贴到单元格

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

但是，它在更改下拉框中的选定项目时不起作用，仅在运行脚本时起作用。