Private Sub SpinButton1_SpinUp()
With Me.ListBox1
If .ListIndex = 0 Then Exit Sub
.ListIndex = .ListIndex - 1
End With
End Sub
Private Sub SpinButton1_SpinDown()
With Me.ListBox1
If .ListIndex = .ListCount - 1 Then Exit Sub
.ListIndex = .ListIndex + 1
End With
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.ListIndex = 0
End Sub