Multi Select but only allow 2 to be selected

[tony.reynolds]

I have a userform with a multi select listbox.

however i would like to customize how it works

1. i would like to only allow one or two entries to be selected no more

a msgbox that says "you can only select one or two Dates" then clear the last selected would be great.

Below is the code so far that enters the forst selected date in Range("AvailableDates1") and then the next in next row down etc

Private Sub CommandButton1_Click()
Dim i As Long, ACell As Range
Set ACell = Range("AvailableDates1")
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        ACell = ListBox1.List(i)
        Set ACell = ACell.Offset(1, 0)
    End If
Next i
End Sub

anyone help me restrict the select operation to one or two only would be great

 

[AlphaFrog]

Private Sub CommandButton1_Click()
    Dim i As Long, ACell As Range, counter As Byte
    Set ACell = Range("AvailableDates1")
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            counter = counter + 1
            Select Case counter
                Case 1: ACell = ListBox1.List(i)
                Case 2: ACell.Offset(1) = ListBox1.List(i)
                Case Is > 2: ListBox1.Selected(i) = False
            End Select
        End If
    Next i
    If counter > 2 Then MsgBox "Only the first two selections were used.", vbInformation, "Two Selections Only"
End Sub