I have a listbox on a userform. The list displayed in the listbox comes from
a procedure (using .addItem). What I want to do is when an item from the list
is selected, that item is put in the active cell of the worksheet and I have
that working (code below). The problem I am having is that after I have made
a selection, I cannot update the next cell with the same value, I must select
another item from the list and many times I want to use the same item over
and over again. I have a cmdCloseFrm button on the form to stop the input
process.


Private Sub lstPickIt_Click()
Dim rngActive As String, stgrNew As String
rngActive = ActiveWindow.ActiveCell.Address
ActiveCell.Value = lstPickIt.Value
ActiveCell.Offset(1, 0).Range("A1").Select

End Sub