ComboBox1.Clear
ComboBox1.Width = 4580
ComboBox1.ColumnCount = 2
ComboBox1.ListWidth = "8cm"
ComboBox1.ColumnWidths = "4cm;4 cm"
ComboBox1.AddItem "Row 1, Col 1"
ComboBox1.List(0, 1) = "Row 1, Col 2"
ComboBox1.AddItem "Row 2, Col 1 "
ComboBox1.List(1, 1) = "Row 2, Col 2"