Using activex combobox to insert value in a data validation cell

Darbar,

Remove the entry from the linked cell property. Paste the following code into the Custom sheet's worksheet module:

Private Sub ComboBox1_Change()
    Worksheets(1).Range("L6") = Val(ComboBox1.Value)
End Sub

You were sending "11" as text to a cell that requires a number. The code sends it to L6 as a number.

HTH,
Maud