Seleccionar todo los datos del listbox excel vba

Solo le agregue algo más para que al desmarcar el CheckBox se DEseleccione

Private Sub CheckBox1_Click()
Dim i As Long
 If CheckBox1.Value = True Then
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = True
    Next
        Else
        For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = False
    Next
    End If
End Sub

Si te sirve el agregado, pues bin

H o l a:

Te anexo el código

Private Sub CommandButton1_Click()
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = True
    Next
End Sub

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )