Is there a more efficient way to code this? I want to have some of the
selections within the listbox to be selected.
The code below works, but seems to me there should be a better way.

Sub Assembly()

UserForm1.ListBox1.Selected(0) = True
UserForm1.ListBox1.Selected(1) = True
UserForm1.ListBox1.Selected(2) = True
UserForm1.ListBox1.Selected(3) = True
UserForm1.ListBox1.Selected(4) = True
UserForm1.ListBox1.Selected(5) = True
UserForm1.ListBox1.Selected(6) = True
UserForm1.ListBox1.Selected(7) = True
UserForm1.ListBox1.Selected(8) = True
UserForm1.ListBox1.Selected(9) = True
UserForm1.ListBox1.Selected(10) = True
UserForm1.ListBox1.Selected(14) = True
UserForm1.ListBox1.Selected(18) = True
UserForm1.ListBox1.Selected(21) = True
UserForm1.ListBox1.Selected(23) = True
UserForm1.ListBox1.Selected(25) = True

End Sub



*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!