Highlight the default item when Combo Box loaded

With ComboBox1
.AddItem “Potato”
.List(.ListCount - 1, 1) = “1″

.AddItem “Meat”
.List(.ListCount - 1, 1) = “2″

.AddItem “Beer”
.List(.ListCount - 1, 1) = “3″

.ColumnCount = 2
.BoundColumn = 1
.ColumnWidths = “.5 in; .5 in”

End With

For i = 0 To ComboBox1.ListCount - 1
If ComboBox1.List(i) = “Beer” Then
ComboBox1.ListIndex = i
End If
Next i