Validate Listbox Entry

Hello AndyE,

When a ListBox is updated through code, no events are triggered. An object must have the focus for events to fire. You need to make the label visible when you check for the item selected by the user in ListBox1.

Here is the updated code for the UserForm.

Option Explicit

Private Sub userform_initialize()

    Label1.Visible = False
    
End Sub

Private Sub commandbutton1_click()

    Dim iCtr As Long

    For iCtr = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(iCtr) = True Then
            Me.ListBox2.AddItem _
            Me.ListBox1.List(iCtr)
            Label1.Visible = True
        End If
    Next iCtr

End Sub