I pasted the wrong code (sigh).

I meant this:

Private Sub UserForm_Initialize()

Dim iCtr As Long

With Me.ListBox1
.List = Worksheets("sheet1").Range("a1:a10").Value
End With

With Me.ListBox2
.List = Worksheets("sheet1").Range("b1:b10").Value
End With

Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti

End Sub

You don't need to go cell by cell.

(sorry.)

I think I had the worksheet version in another module and screwed up by copying
from there.


Edward Glover wrote:

You've solved my problem. I had the range set in the listbox rowsource
properties window (Sheet1! A3:A25), however your last response led me to
populating the listbox through the userfrm_initialize procedure. This
resulted in the code executing the removeitem and clear listbox methods.

I wasn't able to take advantage of the sample code you provided because
the listfillrange listbox method was not recognized. Instead I used the
following:

Private Sub UserForm_Initialize()

Dim cell As Range
Dim Rng As Range

With ThisWorkbook.Sheets("Sheet1")
Set Rng = .Range("a3", "a25")
End With

For Each cell In Rng.Cells
Me.ListBox1.AddItem cell.Value
Next cell

Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti

End Sub

thx. for all your responses. I really appreciate your assistance.

Edward

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

--

Dave Peterson