Listbox click event

Question

Thought this would be straight forword but I can not get it to work.

When I click on a name in ListBox1 I want that value to be placed in cell AA4 of the active sheet. Tried the code below but no luck.

Private Sub ListBox1_Click()

Range("AA4").Value = ListBox1.Value

End Sub

Answer 1

I did as you suggested. In the ControlSource for the ListBox on my UserForm I entered $AA$4 but when I did that I was no longer able to select anything on the ListBox.

Answer 2

Why not just use the ControlSource of the ListBox?

Set the ControlSource to $AA$4, and whenever you click on a name on the ListBox, $AA$4 will show that name.

To do that, select the form in the Visual Basic Editor.  Make sure the Properties window is showing.  Scroll to the ControlSource property, and type in $AA$4.

HTH,

Eric

Answer 3

Your code should work. Make sure that it is in the userform module, not in a standard module.

Open the userform in the Visual Basic Editor, then double-click ListBox1. This should take you to the ListBox1_Click event procedure. If not, the code is in the wrong place.

Answer 4

Sorry,

If is a form on a Userform

Answer 5

Is this a Forms list box or an ActiveX list box on a worksheet, or is it a list box on a userform (in the Visual Basic Editor)?