Private Sub ComboBox4_Change() Select Case ComboBox4.Value Case "1": O1 = Array("AA") Case "2": O1 = Array("BB"