help with dynamic combo box

Hello Chia,

Your syntax is wrong in the code below.

Dim productA as Variant 
productA = Range("P2":"P2")
comboBox1.List() = productA

The cell range should be enclosed by a single pair of quotes, like below...

Dim productA as Variant 
productA = Range("P2:P2")
comboBox1.List() = productA