Private Sub CommandButton1_Click()
If Trim(TextBox1.Text) = "" Then Exit Sub
ListBox1.AddItem (TextBox1.Text)
Sheet1.Cells(Range("A65536").End(xlUp).Row + 1, 1) = TextBox1.Text
TextBox1.Text = ""End SubPrivate Sub UserForm_Activate()
Dim var() As Variant
Dim iRow As Long
Dim iLen As Long
var = Sheet1.Rang...