Private Sub CommandButton3_Click()
[ComboBox2].ListIndex = _
WorksheetFunction.Min([ComboBox2].ListIndex + 1, [ComboBox2].ListCount - 1)
End Sub
Private Sub CommandButton4_Click()
[ComboBox2].ListIndex = _
WorksheetFunction.Max([ComboBox2].ListIndex - 1, 0)
End Sub