Combo Box List
 

This is the code I have for a combo box,

Private Sub ComboBox1_GotFocus()

With ComboBox1
.Text = "Select Dimension"
.AddItem "Weight"
.AddItem "Flange Thickness"
.AddItem "OAL"
.AddItem "Body Length"
.AddItem "Counter Bore"
End With

End Sub

For some reason, the drop down menu lists these five options seven times
over. I'm new to VBA, why is this.

You probably want to Clear the combobox before adding items to
it.

.Clear


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"aftamath" wrote in message
...
This is the code I have for a combo box,

Private Sub ComboBox1_GotFocus()

With ComboBox1
.Text = "Select Dimension"
.AddItem "Weight"
.AddItem "Flange Thickness"
.AddItem "OAL"
.AddItem "Body Length"
.AddItem "Counter Bore"
End With

End Sub

For some reason, the drop down menu lists these five options
seven times
over. I'm new to VBA, why is this.

Chip! Great to see you! I LOVE your website and recommend it often to my
clients! Thanks for just being you!

Cindee

"Chip Pearson" wrote:

You probably want to Clear the combobox before adding items to
it.

.Clear


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"aftamath" wrote in message
...
This is the code I have for a combo box,

Private Sub ComboBox1_GotFocus()

With ComboBox1
.Text = "Select Dimension"
.AddItem "Weight"
.AddItem "Flange Thickness"
.AddItem "OAL"
.AddItem "Body Length"
.AddItem "Counter Bore"
End With

End Sub

For some reason, the drop down menu lists these five options
seven times
over. I'm new to VBA, why is this.