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.