Selected Item in Listbox (VBA)

1 2 3 4 5

Private Sub CommandButton1_Click() MsgBox ListBox1.Value End Sub

Get last item from listbox:

1 2 3 4 5 6 7 8 9 10

Sub LastItem() Dim Msg As String Msg = "Last item:" & vbNewLine Msg = Msg & ListBox1.List(ListBox1.ListCount - 1) & vbNewLine MsgBox Msg End Sub

Select last item of list box:

1 2 3 4 5 6 7 8 9 10 11 12

Sub LastItem() Dim Msg As String Msg = "Last item:" & vbNewLine Msg = Msg & ListBox1.List(ListBox1.ListCount - 1) & vbNewLine ListBox1.Selected(ListBox1.ListCount - 1) = True MsgBox Msg End Sub

Download File