Using activex combobox to insert value in a data validation cell

Right click the sheet's tab, view code, and paste. Obviously, save the file as xlsm.

Private Sub ComboBox1_Change()
  Range(ComboBox1.LinkedCell).Value = _
    ComboBox1.Value
End Sub