hi.

try

With ComboBox1 
   .AddItem "a1" 
   .AddItem "b1" 
   .AddItem "c1" 
   .AddItem "d1" 
End With