"K" wrote in message
...
On Feb 18, 10:32 am, "Bob Phillips" wrote:
Dim i As Long

With Me.ListBox1

.MultiSelect = fmMultiSelectExtended
For i = 1 To .ListCount

.Selected(i - 1) = True
Next i
End With

--
__________________________________
HTH

Bob

"K" wrote in message

...



Hi all, I need macro on a button which can select all the items or
list in ListBox1. Please can any friend can help.- Hide quoted text -

- Show quoted text -

Bob do you know that what sort of adjusment I should make in your
macro if I want to select all the items or list in ListBox1 except the
last item

For i = 1 To .ListCount - 1

HTH. Best wishes Harald