Article ID: 185388
Article Last Modified on 1/23/2007
Private Sub CommandButton1_Click()
Dim x As Variant
x = InputBox _
("Type Data To Be Placed Into The ListBox and Click OK")
ListBox1.AddItem x
End Sub
Private Sub CommandButton2_Click()
' Close the UserForm.
Unload Me
End Sub
A1: Apples
A2: Pears
A3: Bananas
Private Sub CommandButton1_Click()
Dim MyArray(0, 2) As String
MyArray(0, 0) = Worksheets(1).Range("A1").Value
MyArray(0, 1) = Worksheets(1).Range("A2").Value
MyArray(0, 2) = Worksheets(1).Range("A3").Value
ComboBox1.Column() = MyArray
End Sub
Private Sub CommandButton2_Click()
' Close the UserForm.
Unload Me
End Sub
Additional query words: MacXLX XL2001 XL98 user form combo box list
Keywords: kbhowto kbprogramming KB185388