Hier een workaround.
Als je alleen dit achter je userform zet zou het moeten werken
Private Sub ListBox1_Change()
With ListBox1
If .ListIndex < 0 Then Exit Sub
For i = 0 To .ListCount - 1
If .Selected(i) Then a = a + 1
If a > 1 Then
.Selected(i) = False
Exit Sub
ElseIf InStr(.List(i, 1), "***") And .Selected(i) Then
.Selected(i) = False
End If
Next
End With
End Sub
Private Sub UserForm_Initialize()
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.List = Sheets("Ras").Cells(1, 1).CurrentRegion.Value
End Sub