Sub Userform1_Initialize() For i = 975 To 1301 ComboBox1.AddItem i Next i End Sub Private Sub CommandButton1_Click() For j = 8 To 32 If ComboBox1.Value < Cells(j, 6) Then Label1.Caption = Cells(j, 2) End If Next End Sub