Private Sub UserForm_Initialize()ComboBox1.ClearComboBox1.Style = 2For i = 1 To 10ComboBox1.AddItem Sheets("Sheet1").Cells(i, 1).ValueNext iComboBox1.ListIndex = 0End Sub