Listbox med multi select

Jeg er ved  at lave et program med ca. 200 rækker og 3 kolonner.
Jeg har prøvet at lave en list box med at afkrydsnings felt for hver række.

Private Sub UserForm_Initialize()
    Dim ColCnt As Integer
    Dim rng As Range
    Dim cw As String
    Dim c As Integer
   
    ColCnt = ActiveSheet.UsedRange.Columns.Count
    Set rng = ActiveSheet.UsedRange
    With ListBox1
        .ColumnCount = ColCnt
        .RowSource = rng.Address
        cw = ""
        For c = 1 To .ColumnCount
            cw = cw & rng.Columns(c).Width & ";"
        Next c
        .ColumnWidths = cw
        .ListIndex = 0
    End With
End Sub

MultiSelect er sat til 1-fmMultiSelectMulti
Liststyle er sat til 1-fmListStyleOption

Nu til spørgsmålet, kan jeg lave en knap, så at jeg kan lægget tal til i de 3 kolonner, men kun i de rækker der er valgt?
Håber i kan hjælpe