I have this code it works fine a shown below but when I change "Sub ListBox1_Change()" to "Sub ListBox1_Click()" it won't work. The output will be blank but if I change it to "Change" there is an output. Any ideas why that is?

Thanks

Sub ListBox1_Change()
Dim lItem As Long
    For lItem = 0 To ListBox1.ListCount - 1
        If UserForm1.MultiPage1.Pages(0).ListBox1.Selected(lItem) = True Then
            ThisWorkbook.Worksheets("Processing_Data").Range("a65536").End(xlUp)(2, 1) = ListBox1.List(lItem)
            ListBox1.Selected(lItem) = False
        End If
    Next
End Sub