Hi:

On a UserForm I have the following:

Private Sub ListBox1_Click()
ActiveCell.Value = UserForm1.ListBox1.Value
ActiveCell.Offset(1, 0).Activate

End Sub


And on a Worksheet the following:

Private Sub CommandButton3_Click()
UserForm1.ListBox1.RowSource = "Sheet1!A1:A5"
UserForm1.Show
End Sub


This works ok within its limitations but I would like to be able to select
the same item multiple times by clicking it, without moving the cellpointer
to (and by so doing, picking) the next item in the list..

Any suggestions or examples will be greatly appreciated.
Thanks

TK