Private Sub CommandButton1_Click()
With Sheets("Plan Act")
For k = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(k) = True Then
lg = .Range("C4").End(xlDown).Row + 1
.Cells(lg, 3) = ListBox1.List(k)
tx = IIf(tx = "", ListBox1.List(k), tx & Chr(10) & ListBox1.List(k))
End If
Next
Application.EnableEvents = False
If xx <> "" And tx = "" Then ActiveCell.Value = xx
If xx = "" And tx <> "" Then ActiveCell.Value = tx
If xx <> "" And tx <> "" Then ActiveCell.Value = xx & Chr(10) & tx
If xx = "" And tx = "" Then ActiveCell.Value = ""
fin:
Application.EnableEvents = True
Unload UserForm1
End With
End Sub