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