Im using a code that reads the value in a listbox on a userform. My problem is that the code doesnt read the value unless the user clicks the text in the list box. Is there anyway of getting around this. Im using the code below-Private Sub CommandButton3_Click()

Me.Hide
Sheets("BALANCE SHEET").Select
Rows("4:9141").EntireRow.Hidden = True
v = ActiveWorkbook.CustomDocumentProperties("list").Value
Application.ScreenUpdating = False
For Each C In Worksheets("BALANCE SHEET").Range("a4:a9141") ' Adjust your range if necessary
If C.Value = v Then
C.Rows.EntireRow.Hidden = False
End If
Next C
Application.ScreenUpdating = True
ActiveWindow.SmallScroll Down:=-1
Module7.compbar
Unload Me
End Sub



Private Sub addbutton_Click()
ListBox2.AddItem ListBox1.Value
End Sub

Private Sub deletebutton_click()
If ListBox2.ListIndex = -1 Then Exit Sub
ListBox2.RemoveItem ListBox2.ListIndex

End Sub

Private Sub ListBox2_click()
ActiveWorkbook.CustomDocumentProperties("list").Value = ListBox2.Value
End Sub

The addbutton adds a selection from listbox1 to listbox2, then using the commandbutton3_click() its supposed to do its thing, but it won't becouse the code is not reading a value from listbox2 unless the user clicks the item in listbox2, then clicks commandbutton_click3(). Have any sugestions?