Userform listbox click event fires twice

[HighAndWilder]

I realise that this problem has been posted before by others but I have still not managed to sort it out

I have a listbox on a Userform. When an item is clicked the Click event runs twice.

When I changed it to Change it ran four times.

It is obviously a problem in Excel.

Can anybody please explain why this happens and what reliable solutions are available.

Thanks

 

[RoryA]

What does the event code do, and how is the listbox populated?

 

[HighAndWilder]

I have set up a simple form to try and sort this out.

I just have one listbox and when I click on an item it fires up to four times.

I have tried setting the listindex to -1 and that does not work.

Private Sub ListBox1_Click()
Dim i As Integer

    MsgBox "ListBox1_Click"

End Sub

Private Sub UserForm_Initialize()
Dim i As Integer

    For i = 1 To 10
        Me.ListBox1.AddItem "Option " & i
    Next i

End Sub