hi
when i insert listboxes into a userform, the listbox.values that i
select aren't accessible back in my main program. i thought that if i
clicked on the listbox and then just hit the commandbutton, the value
that i clicked would be accessible back in my subroutine, but it's not.
what code am i missing in my userform code?

thanx
sam

sub XX ()
dim myform as new userform
myform show
activecell.value = listbox1.value
end sub

(actual userform code below)

Private Sub cmdend_Click()
Hide
End Sub

Private Sub ListBox1_Click()
End Sub

Private Sub UserForm_Initialize()
ListBox1.AddItem "Hosp Vist Mod"
ListBox1.AddItem "Hosp Vist Complex"
ListBox1.AddItem "Hosp Consult Mod"
ListBox1.AddItem "Hosp Consult Complex"
ListBox1.AddItem "Hosp Admission"
ListBox1.AddItem "H&P"
ListBox2.AddItem "30 minutes ICU detention time"
ListBox2.AddItem "inpt echocardiogram interp."
ListBox2.AddItem "inpt holter interp."
ListBox2.AddItem "inpt right heart cath only"
End Sub

try pulling the listbox1.text as opposed to listbox1.value ;-)


--
Wendell A. Clark, BS
-------------------------------------

CONFIDENTIALITY NOTICE: This e-mail communication and any attachments may
contain confidential and privileged information for the use of the
designated recipients named above. If you are not the intended recipient,
please notify us by reply e-mail. You are hereby notified that you have
received this communication in error and that any review, disclosure,
dissemination, distribution or copying of it or its contents is prohibited.
If you have received this communication in error, please destroy all copies
of this communication and any attachments. Contact the sender if it
continues.


wrote in message
ups.com...
hi
when i insert listboxes into a userform, the listbox.values that i
select aren't accessible back in my main program. i thought that if i
clicked on the listbox and then just hit the commandbutton, the value
that i clicked would be accessible back in my subroutine, but it's not.
what code am i missing in my userform code?

thanx
sam

sub XX ()
dim myform as new userform
myform show
activecell.value = listbox1.value
end sub

(actual userform code below)

Private Sub cmdend_Click()
Hide
End Sub

Private Sub ListBox1_Click()
End Sub

Private Sub UserForm_Initialize()
ListBox1.AddItem "Hosp Vist Mod"
ListBox1.AddItem "Hosp Vist Complex"
ListBox1.AddItem "Hosp Consult Mod"
ListBox1.AddItem "Hosp Consult Complex"
ListBox1.AddItem "Hosp Admission"
ListBox1.AddItem "H&P"
ListBox2.AddItem "30 minutes ICU detention time"
ListBox2.AddItem "inpt echocardiogram interp."
ListBox2.AddItem "inpt holter interp."
ListBox2.AddItem "inpt right heart cath only"
End Sub