Multiselect userform box deselecting selected items

[braindiesel]

I have a userform with a couple listboxes... the second is enabled for multiselect.
When I click 2 or more items and it gets to this code, it does what I want it to do for the first one... but it "forgets" or deselects the rest of the selections...
Any suggestions?

For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) = True Then
            guts.Select
            putItHere = guts.Range("daClients").Offset(i + 1, 1).Value
            backStage.Select
            backStage.Cells(putItHere, Range("dataList[[#Headers],[Action]]").Column).Value = "X"
        End If
        'If ListBox1.Selected(i) = False Then guts.Range("daFirms").Offset(i + 1, 1).Value = ""
    Next i

 

[braindiesel]

I found aworkaround... this took care of it.

Set TxtRng = guts.Range("daClients").Offset(1, 2)
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) Then
            TxtRng.Value = ListBox2.List(i)
            Set TxtRng = TxtRng.Offset(1)
        End If
    Next i

It added a few steps, but will do...
If you DO have a solution to my initial, I would welcome it.