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.