Try this worked very quickly @ 6000 + rows
Option Explicit
Private Sub CommandButton1_Click()
With Me.ListBox1
.RowSource = "A1:F65536" <--- change for your needs
End With
End Sub
Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 6< --- change for your needs
End With
End Sub
"x taol" wrote:
yes, I explain....
I have a userform.
the userform has a listbox.
a property the listbox is set following below.
lbx.MultiSelect = fmMultiSelectMulti
when the listbox have 10000 data, the problem has.
when the 10000 data is selected... the slow...
and then press a commandbutton on the form, the event occur.
I want to select all data of listbox, fastly.
*** Sent via Developersdex http://www.developersdex.com ***