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