Vælge alle items i Listbox

Hvis det er en listbox i en form, mener jeg ikke at man kan, det virker vist nok kun i selve regnarket.

men  kan du ikke sætte en knap ind, med navnet VælgAlt, og så denne kode

Private Sub VælgAlt_Click()
For T = 0 To ListBox1.ListCount - 1
ListBox1.Selected(T) = True
Next
End Sub

'------------------------ Form1 ------------------------
' Husk at sette ListBox .MultiSelect til 1 eller 2
'-------------------------------------------------------

Option Explicit

Private Sub Form_Load()
Dim i As Long
  For i = 1 To 500
    List1.AddItem "Test " & i
  Next
End Sub

Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Long
  If Shift = 2 And KeyCode = 65 Then 'Ctrl = 2 og A = 65
    With List1 '<- ListBox
        .Visible = False
          For i = 0 To .ListCount - 1
            .Selected(i) = True
          Next
        .Visible = True
    End With
  End If
End Sub
'------------------------ Form1 ------------------------