Unfortunately, I am accessing this Newsgroup with Outlook Express. I do not
have anything to click on that you mention. If you do, please feel free to
post it yourself.

Thanks,

Bill


"JLGWhiz" wrote in message
...
Sorry about that. Should be click Suggestion for Microsoft instead of
question.

"Bill" wrote:

My ListBox1_Click() is functionally identical. Here is another twist, in
UserForm_Activate() I do:

ListBox1.ListIndex = 0

This of course triggers ListBox1_Click(). The form shows all three
listboxes
with the first item (listindex = 0) selected. However, Listbox1.Text 1
and
ListBox3.Text are empty and Listbox2 is correct. If I then follow that
bny
clicking on ListBox1, ListBox1.Text and ListBox2.Text are correct, but
ListBox3.Text is empty.


"JLGWhiz" wrote in message
...
Here is the set up that I used.

Create UserForm1.
Add three ListBox controls to UserForm1.
Put this code behind ListBox1 on form:

Private Sub ListBox1_Click()
ListBox2.ListIndex = ListBox1.ListIndex
ListBox3.ListIndex = ListBox1.ListIndex
v1 = ListBox1.Value '(or .Text)
v2 = ListBox2.Value '(or .Text)
v3 = ListBox3.Value '(or .Text)
MsgBox v1 & " " & v2 & " " & v3
End Sub

Set same row source on Sheet1 for all three listboxes.
Put this code in standard module:

Sub UF1()
UserForm1.Show
End Sub

"Bill" wrote:

All,

I have done a fair amount of Excel VBA programming, but this is a new
odd
behavior. I have a form with 3 listboxes. All 3 listboxes have a range
as
a
Rowsource. When the form opens they are all populated and display just
fine.
I want an item selected in the first listbox to force the same
selection
(i.e. listindex) in the other 2 listboxes. In the listbox1_Click()
subroutine I put the following code:

listbox2.ListIndex = listbox1.ListIndex
listbox3.ListIndex = listbox1.ListIndex

v1 = listbox1.Value (or .Text)
v2 = listbox2.Value (or .Text)
v3 = listbox3.Value (or .Text)

v1 and v2 have the right stuff but v3 = ""

Any ideas?

TIA,

Bill