Dim j As Integer
Dim intLastSelected As Integer
For j = 0 To ListBoxName.ListCount - 1
If ListBoxName.Selected (j) Then intLastSelected = j
Next j
'intLastSelected will now have the index of the last selected item.
'To get the column content of that item:
ListBoxName.Column (, intLastSelected )
Where the fist column is ColumnNumber 0
