Private Sub UserForm_Initialize()
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
cboPercent.AddItem Cells(iRow, 1).Text
iRow = iRow + 1
Loop
With cboPercent
If .ListCount > 0 Then
.ListIndex = 0
End If
End With
End Sub