preselect ALL items in Listbox

I have a Listbox with a varying number of items in the list.
90% of the time the user will select all the items in the list.
Is there a way to have all the items preselected?
Then the remaining 10% can unselect.

Hello ,

Here is an example. You will need to change the ListBox name if it is different than yours.

  For I = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(I) = True
  Next I

Good afternoon carst

Originally Posted by carsto

Is there a way to have all the items preselected?
Then the remaining 10% can unselect.

Are we talking about a listbox in a userform?
If so use the code below (I'm assuming that your listbox is called ListBox1) :

For n = 0 To ListBox1.ListCount - 1
ListBox1.Selected(n) = True
Next n

Just make sure that your listbox is set up to accept multiple selections.

HTH

DominicB