for i = 0 to listbox1.Listcount-1
listbox1.Selected(i) = False
Next

False will unselect. Change to True to select.

Regards,
Tom Ogilvy


"Stuart" wrote in message
...
How can I code a button which will allow the user
to select/deselect all entries in a multiselect listbox,
please?

Currently Textbox1 instructs the user to use the left
mouse button to highlight their chosen sheets,
Listbox1 contains the sheet names, and Command
Button1 = "Click when done".

I'm hoping that when a book contains many sheets,
user could select all then just left click with mouse to
deselect specific sheets.

Is this possible, please?

Regards.





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/2003