VBA: Forms, ListBox

Hej

Jeg har en Userform med nogle forskellige kontrolelementer på, blandt andet en checkbox og en listbox.
Jeg bruger følgende kode i UserForm_Initialize()
    Dim a As Integer
    For a = 3 To 9
        If Range("A" & a) = "" Then
        Else
            ListBox1.AddItem Range("A" & a)
        End If
    Next a
Da jeg har mine data til ListBox'en i felt A3:A9, men det kun er de felter der har indhold der skal medtages, så fungere dette som sådan fint nok.

Om ListBox.Enabled er sat til True eller False afgør min checkbox, men osm standard er den sat til false.

Jeg ønsker alle mine items markeret fra starten af. Jeg ved jeg kan gøre det med ListBox1.Selected(nummer) = True. Problemet er bare at jeg ikke ved hvordan jeg skal få automatiseret processen. Den ene gang formen bruges kan der jo være op til 3, og den anden gang op til 7?

Derudover mangler jeg inspiration til hvordan jeg arbejder videre med dataene. Altså hvordan jeg bagefter får tjekket hvilke felter der er selected og så udfra det kan arbejde videre med dem, men det tror jeg kommer nogenlunde snildt når først jeg har fundet ud af det første :-)

Skriv endelig hvis I har uddybende spørgsmål, f.eks. hvis jeg ikke har fået gjort det forståeligt nok :)