listbox problem

Private Sub ListBox1_Click()
For i = [A20].End(xlDown).Row To Range("A65536").End(xlUp).Row Step 1
If Cells(i, 1).Value = ListBox1.text Then Exit For
Next i
Cells(i, 1).Select
If i = 23 Then
Rows(i & ":" & i + 5).Select
Else
Rows(i - 2 & ":" & i + 5).Select
End If

und die listboxeigenschaft multiselect ist so eingestellt dass man immer nur ein item auswählen kann. dann funktioniert des code einwandfrei. wenn ich nun aber die multiselect eigenschaft so einstelole, dass man mehrere items wählen kann, gar nicht.
ich möchte ber mehrer items auswählen können denn ich möchte wie wenn man die strg-taste drückt mehrere markierte selektions haben.

danke jan