Private Sub CommandButton1_Click() Dim i As Long With Me.LB1a For i = 0 To .ListCount - 1 If .Selected(i) = True Then Selection.InsertAfter .Column(0, i) & vbCr Next End With Application.ScreenRefresh End Sub