Evento Click en ListBox no me funciona

Tengo este código en un ListBox que está configurado para seleccionar varios elementos marcándolos en sus casillas, funciona bien con el evento DblClick pero espero puedas asesorarme para usar el evento Click, y así evitar el usar un botón para descargar los datos seleccionados en excel, ya investigué un poco pero no encuentro como hacer que funcione.

Espero puedas apoyarme con esto, saludos.

Private Sub ListBox1_Click()      With ListBox1        For i = 0 To .ListCount - 1            If .Selected(i) = True Then                Range("G" & Rows.Count).End(xlUp)(2) = .Column(0, i)                .Selected(i) = False            End If        Next i    End WithEnd Sub